主题：关于MessageBox的一个问题

楼主：假设你想单击了YES后打开一个名称为“人事录入”的窗体，则其代码为：

Dim Result As DialogResult
Result = MessageBox.Show("如果想打开人事录入窗体请点击YES，否则返回！", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
   forms("人事录入").open()
Else
return

End if

在窗体中增加一个按扭，并在它的单击事件中加入这个代码即可