1.
http://www.foxtable.com/help/topics/1453.htm
2.
Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
IfResult = DialogResult.Yes Then
MessageBox.Show("不错,说明你已经认真学习了。","提示")
Else
MessageBox.Show("好好学习吧,你会认同这个看法的。","提示")
End if
[此贴子已经被作者于2013-3-23 14:45:09编辑过]