vb怎么定义一个msgbox里按钮用来关闭弹出的对话框

比如
private sub form_load()
commandcaptoin="结束"
private sub command_click()
“这个地方应该写什么，来关闭有这个按钮的对话框”
end sub

me.close()

msgbox功能有限。我建议你还是自己使用vb做一个专门属于你自己的messagebox，放上若干按钮。同时编码设置每一个按奶牛点击以后产生的返回值（返回存储到一个全局变量里边）。

然后调用的时候使用

frm.show vbmodal

当点击任何一个按钮的时候，关闭自身。同时设置一个全局变量。

然后在窗体中根据这个全局变量判断应该做什么事情……

Private Sub Command1_Click() Dim yesno As Integer yesno = MsgBox("关闭？", vbYesNo, "提示") If yesno = vbYes Then Unload Me End If End Sub