构造新窗体的问题

Question

如何用个循环构造新窗体form（比如10次吧，也就是弹出10个窗口）
下面是我简单的代码
     Dim  form1 as new  form
     do while  i<11
          form1.show
          i=i+1
     loop这段代码是错误的，请问正确应该如何循环构造新的窗口？

Answer 1

do while  i<11
        Dim  form(i) as new  form
        load form(i)
          form(i).show
          i=i+1
     loop

Answer 2

Dim objForm As form1
Private Sub Command1_Click()    
    Dim i As Integer
    For i = 1 To 10
        Set objForm = New form1
        objForm.Show
        objForm.Caption = i
    Next
    
End Sub

Answer 3

do while  i<11
          Dim  form1 as new  form          form1.show
          i=i+1
     loop

Answer 4

yijiansong(不知路在何方)form是不能new的，只能用form1这类建好的窗体
你可以试试，你的代码还是会错的
我改成
Dim objForm(9) As form1Private Sub Command1_Click()    Dim i As Integer
    For i = 0 To 9
        Set objForm(i) = New form1
        objForm(i).Show
        objForm(i).Caption = i
    NextEnd Sub

Answer 5

可以参考帖子
http://community.csdn.net/Expert/topic/3326/3326263.xml?temp=.3299677