vb 自定义事件

Sub 事件名(byval 传入参数 as 类型)
你要做的事情。
End Sub

别的地方直接调用 Call 事件名(参数)
如果不用传入参数直接Sub 事件名(),调用 Call 事件名

Sub MyMsgbox(Byval Msg as String)
MsgBox Msg, vbInformation, "这是一个测试"
End Sub

Private Sub Command1_Click()
Call MyMsgbox("哈哈。这里是信息。给我分哦")
End Sub