1、PrivateSubForm_Load()

2、DimMsge

3、Msge=MsgBox('是否确定退出？'，vbOKCancel，'提示框)

4、IfMsge=vbOKThen

5、卸载我

6、结束条件

7、EndSub'【(vb6)】

8、` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` `……Dim messg As dialog result messg=Forms .MessageBox。显示('不是MessageBoxButtons '，'的成员消息窗，表格MessageBoxButtons。OKCancel)如果messg=表单.MessageBoxButtons好然后MsgBox('System .窗户。表格。messagebox按钮“)”-Dim messg As messagebox result messg=System .窗户。MessageBox.Show('不是MessageBoxButtons '，'的成员消息窗消息框按钮.OKCancel) If messg=Forms .MessageBoxButtons好然后MsgBox('System .Windows，MessageBoxButton[S]')