Dim dlgRtn As DialogResult
dlgRtn = MessageBox.Show( "错误信息 ", "提示 ", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Select Case dlgRtn
Case DialogResult.Yes
MessageBox.Show( " ", "ok ")
Case DialogResult.No
MessageBox.Show( " ", "no ")
End Select
dlgRtn = MessageBox.Show( "错误信息 ", "提示 ", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Select Case dlgRtn
Case DialogResult.Yes
MessageBox.Show( " ", "ok ")
Case DialogResult.No
MessageBox.Show( " ", "no ")
End Select