示例代码:Dim newForm1 As New Form1Dim newForm2 As New Form1Dim newForm3 As New Form1Private Sub Command1_Click()
List1.AddItem "new Form1"
List1.AddItem "new Form2"
List1.AddItem "new Form3"
newForm1.Caption = "new Form1"
newForm2.Caption = "new Form2"
newForm3.Caption = "new Form3" ...