Private Sub Command1_Click() If MsgBox("您确定要退出程序吗？", vbYesNo, "提示") = vbYes Then Unload Me End IfEnd Sub
