VB编程：申明窗体数组

VB编程：申明窗体数组

运行效果

运行代码：

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