你那个是动态创建窗口，这个代码我试过了可以用的··呵呵··要注意把form2的autoredraw设置为
truePrivate Sub Form_click() Dim i As Form '声明对象变量 Set i = New Form2 '实例化 i.ShowEnd Sub
