这样写
全局代码:
Public Sub BaseMainform_Activated(ByVal sender As Object, _ ByVal e As System.EventArgs) output.show(Date.Now)
End Sub
绑定事件:
addhandler basemainform.Activated, addressof BaseMainform_Activated