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