将NewForm设置为全局变量就可以了，如果新建窗口比较多，就设置为数组，例如：
创新互联公司服务项目包括章贡网站建设、章贡网站制作、章贡网页制作以及章贡网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，章贡网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到章贡省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Public Class Form1
Dim NewForm(10) As Form
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
NewForm(0) = New Form
NewForm(0).Show()
End Sub
End Class
对于窗体中的容器控件，比如 GroupBox，Panel 等，它仅仅访问了这些控件本身，而不会去访问它们的子控件。为了实现你所要求的功能，需要将上述代码修改：
Public Sub IterateThroughControls(ByVal parent As Control)
For Each c As Control In parent.Controls
MessageBox.Show(c.ToString())
If c.HasChildern Then
'利用递归实现容器子控件的访问，重复循环遍历控件，调用自身函数
IterateThroughControls(c)
End If
Next
End Sub
调用方法：
IterateThroughControls(TabControl1) 'tabcontrol1为控件名，也可用groupbox1等
此外，判断遍历的控件是不是相应的文本控件，或者combobox控件，可用此代码判断
For Each t As Control In Me.Controls
If TypeOf t Is TextBox Then
MsgBox(t)
End If
Next
Dim F1 As New Datasystem.Form2 '实例化窗体
For Each na As Form In Application.OpenForms '打开窗体的集合
If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判断程序集的产品名称和窗体名称是否已存在打开的窗体中
If na.WindowState = FormWindowState.Minimized Then '判断窗体是否最小化
na.WindowState = FormWindowState.Normal '还原窗体
End If
na.Activate() '激活窗体
Return '返回
End If
Next
F1.Show() '如果没有打开的窗体中未找到，重新打开窗体