VB编程：申明窗体数组-40
运行效果
运行代码：
Private Sub Command1_Click()
Dim intx As
Integer
Dim frmnew(1 To 5) As
New Form1 '使用new关键字，系统会创建新窗体
For intx = 1 To 5
frmnew(intx).Show
frmnew(intx).WindowState = vbMinimized
'将创建的窗体最小化
Next
End Sub