关闭当前窗口就用Unload Me关闭整个程序就用End
代码如下:
Private Sub Command1_Click() //单击关闭事件 end//结束End Sub//结束此模块
Private Sub Command1_Click() endEnd Sub