VB 弹出多个同一窗体的代码

来源：百度知道 编辑：UC知道 时间：2024/06/11 16:29:33
一个按钮，点击后弹出五个或更多Form2窗体的代码！谢谢！

Dim frm As Form
For i = 1 To 5
Set frm = New Form2
frm.Show
Next i

i为通用变量,加一个timer控件, 点击窗体,即可
Dim i
Private Sub Form_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
i = 1
End Sub

Private Sub Timer1_Timer()
Dim formx As New Form1
formx.Show
i = i + 1
If i >= 5 Then Timer1.Enabled = False
End Sub

xp和vb6中通过测试,