Private Sub OnPopup(sender As Object, e As PopupEventArgs)
'Piece Of Code
End Sub
Private Sub OnDraw(sender As Object, e As DrawToolTipEventArgs)
'Piece Of Code
End Sub
在线转换器将其转换如下:
Me.Popup += New PopupEventHandler(AddressOf Me.OnPopup)
Me.Draw += New DrawToolTipEventHandler(AddressOf Me.OnDraw)
Private Sub OnPopup(sender As Object, e As PopupEventArgs) Handles Me.Popup
'Piece Of Code
End Sub
Private Sub OnDraw(sender As Object, e As DrawToolTipEventArgs) Handles Me.Draw
'Piece Of Code
End Sub