要打开一个窗体form2 Dim frm2 as form2Set frm2 = new form2frm2.ShowForm Form2中: public Sub ShowForm() ..... End Sub