主题：[求助] 窗口录入信息引入问题

1.

http://www.foxtable.com/help/topics/1453.htm

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