Membuat Form Sebagai Array

Private Sub Command1_Click()
Dim intX As Integer
Dim frmNew(1 To 5) As New Form1
For intX = 1 To 5
frmNew(intX).Show
frmNew(intX).WindowState = vbMinimized
'Untuk membuat form yang diminimized tanpa
'memiliki ukuran normal pada saat tampilan
'awalnya, ganti urutan coding dari dua baris di
'atas, sehingga nantinya menjadi:
'frmNew(intX).WindowState = vbMinimized
'frmNew(intX).Show
Next
End Sub