FormControlに動的にイベントを追加

FormのTsmNewというコントローラのクリック時イベントに対して、

イベントハンドラー:ExecUserMainteを追加する。

AddHandler Me.TsmNew.Click, AddressOf ExecUserMainte

 

(*)イベントハンドラーの例。引数にSenderとEventArgsはセットで書かないと、

 なぜかRemoveHandlerが効きませんよ!

Private Sub ExecUserMainte(ByVal sender As Object, ByVal e As System.EventArgs)
  Dim _frm As New UserMainte
  Utils.FormOpenByDialog(_frm)
  RemoveHandler Me.TsmNew.Click, AddressOf ExecUserMainte
End Sub