运行效果

运行代码：

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