--
Dim Result As DialogResult
Do While True
Result = MessageBox.Show("Visual Basic一点不难,是不是?(不再提示请点击取消)", "提示", MessageBoxButtons.OKCancel , MessageBoxIcon.Question)
If Result = DialogResult.OK Then
MessageBox.Show("不错,说明你已经认真学习了.","提示")
Else
Exit Do
End If
Loop