Private Sub cdxt_Click()
mysub "您确定要退出系统吗？"
End Sub
运行上面语句后,屏幕会弹出是否要退出，带有"确定"钮的提示框,
请问:
1、点击“确定”后的执行退出系统的代码如何写？
2、怎样在提示框中增加一个“否”的钮？

if msbox ("你确定退出系统吗?", vbyesno)=6
end
endif

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("你要退出系统吗?", vbYesNo + vbExclamation, "退出") = vbYes Then
Unload Me
Else
Cancel = True
End If
End Sub

成功了!谢谢楼上二位的帮助!

end 是整个程序.unload的是窗口而已吧?

嗯 。。是的。。