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

\

\