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