运行效果
运行代码:
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
运行效果
运行代码:
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