VB怎么让一个窗体同时出来N个?

Question

问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：问题补充说明：
用你们的方法好像就有一个是真身似的,我用mousemove事件了,只有一个可以相应
先把那个窗体生成EXE,再用资源编辑器装进来,再吐出去,再用shell调用N次,就O了.效果比较好

Answer 1

Dim frm As Form1
Set frm = New Form1
frm.Show

Answer 2

Private Sub Form_Load()
Shell App.Path & "\" & App.EXEName & ".exe"
End Sub
一启动就会无终止的运行。最好不要用。一用机子一会就死。

Answer 3

补充一楼的：
Dim frm As Form1,i as integer
for i=1 to 10
Set frm = New Form1
frm.Show
frm.left=i*1000
frm.top=i*100
next i

Answer 4

Private Sub Form_Click()
Dim Frm(1 To 10) As New Form1
For i = 1 To 5 '点一下窗体，就弹出5个新的
Frm(i).Caption = Me.Caption & i '这个是为了标识不同的窗体用的,可以不要用
Frm(i).Visible = True
Next
End Sub
-----------------
不会呀,都是真身,呵呵