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