在设计时的form只是一个类,
只有在运行是才产生类实例
sub main()
dim frmmain as form1
set frmmain= new form1
frmmain.show
end sub
sub comexit_click()
unload frmmain
end sub
只有在运行是才产生类实例
sub main()
dim frmmain as form1
set frmmain= new form1
frmmain.show
end sub
sub comexit_click()
unload frmmain
end sub
在unload frmmain
后应该加上
Set frmMain=Nothing
才彻底清除了窗体.