vb.net自定义事件

Event ConnectComplete(ByVal Result As Boolean, ByVal Reason As String)

RaiseEvent ConnectComplete(False, "ConnectThread()异常:" + vbCr & vbLf + ex.ToString())

Private WithEvents mRobotControlDriver As RobotCoreDriver = new RobotCoreDriver;

Private Sub mRobotControlDriver_ConnectComplete(Result As Boolean, Reason As String) Handles mRobotControlDriver.ConnectComplete
MessageBox.Show("收到事件")
End Sub

Public Class RobotCoreDriver
Event ConnectComplete(ByVal Result As Boolean, ByVal Reason As String)
Sub Demo()
RaiseEvent ConnectComplete(False, "ConnectThread()异常:" + vbCr & vbLf + ex.ToString())
End Sub
End Class

Public Class Test
Private WithEvents mRobotControlDriver As RobotCoreDriver = new RobotCoreDriver;
mRobotControlDriver.Demo()
End Class
Private Sub mRobotControlDriver_ConnectComplete(Result As Boolean, Reason As String) Handles mRobotControlDriver.ConnectComp
4000
lete
MessageBox.Show("收到事件")
End Sub