楼主:假设你想单击了YES后打开一个名称为“人事录入”的窗体,则其代码为:
Dim Result As DialogResultResult = MessageBox.Show("如果想打开人事录入窗体请点击YES,否则返回!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)If Result = DialogResult.Yes Then forms("人事录入").open()Elsereturn
End if