Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim intResult As DialogResult
'五个参数的意义分别是消息内容,对话框标题,显示的按钮,消息类型,获得焦点的默认按钮
intResult = MessageBox.Show( _
"Do you want save changes to New Document?", _
"MyWord Processor", _
MessageBoxButtons.YesNoCancel, _
MessageBoxIcon.Warning, _
MessageBoxDefaultButton.Button3)
Select Case intResult
Case Windows.Forms.DialogResult.Yes
Label1.Text = "Yes clicked"
Case Windows.Forms.DialogResult.No
Label1.Text = "No clicked"
Case Windows.Forms.DialogResult.Cancel
Label1.Text = "Cancel clicked"
End Select
End Sub
End Class