关于消息对话框的,该如何解决

关于消息对话框的
这样：点击“退出”，弹出消息提示：“是否退出系统？”
如果点“确定”就退出，点“取消”就不退出
这个功能用VB怎么写呢？谢谢了！！！！！！！！！

[解决办法]
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox( "是否退出系统？ ", vbYesNo + vbDefaultButton2, " ") = vbNo Then
Cancel = True
End If
End Sub