Dim Result As DialogResult Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then MessageBox.Show("不错,说明你已经认真学习了。","提示") Else MessageBox.Show("好好学习吧,你会认同这个看法的。","提示") End if