请问怎么用VB实现点击一个按钮弹出一个对话框

Question

如题如何实现单击这个按钮弹出对话框来

Answer 1

Private Sub Command1_Click()
MsgBox "因为你长的不够帅，所以执行了非法操作， " + Chr(13) + " " + Chr(13) + "此程序即将关闭，" + Chr(10) + " " + Chr(13) + "如果有问题，请与供应商联系。", 19, "系统信息"
End Sub

Answer 2

最简单的就是用msgbox函数来实现:Private Sub Command1_Click()
msgbox "这里可以是你要描述的一句话"End Sub

Answer 3

Private Sub Command1_Click()
Dim x As Integer
x = MsgBox("内容", vbInformation, "标题") ' vbInformation是图标
End Sub

Answer 4

Private Sub Command1_Click()
MsgBox "你好！", 0+0+0+0, "系统信息"
End Sub