Dim Result As DialogResult Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) If Result = DialogResult.Yes Then MessageBox.Show("Yes") ElseIf Result = DialogResult.No Then MessageBox.Show("No")