
MsgBox "消息",vbOKOnly ,“此处为提示的内容” 'vbOKOnly表示 只显示 OK 按钮
Command2_Click '调用另一按钮的单击事件
End Sub
Private Sub Command1_Click()
MsgBox "****", vbOKOnly
Command2_Click '按钮单击
End Sub
如果有 确定、取消 的msgbox可以这样写
Private Sub Command1_Click()
If MsgBox("****", vbOKCancel) = vbOK Then Command2_Click '按钮单击
End Sub
Private Sub Command1_Click()
MsgBox "123"
Command2_Click
End Sub
Private Sub Command2_Click()
Me.Caption = "1111111"
End Sub