Public Class Form2
  Inherits System.Windows.Forms.Form
  Dim m_bButton2Handled As Boolean = False

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
  Friend WithEvents Button1 As System.Windows.Forms.Button
  Friend WithEvents Button2 As System.Windows.Forms.Button

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.Button1 = New System.Windows.Forms.Button()
    Me.Button2 = New System.Windows.Forms.Button()
    Me.SuspendLayout()
    '
    'Button1
    '
    Me.Button1.Location = New System.Drawing.Point(112, 48)
    Me.Button1.Name = "Button1"
    Me.Button1.TabIndex = 0
    Me.Button1.Text = "Button1"
    '
    'Button2
    '
    Me.Button2.Location = New System.Drawing.Point(112, 96)
    Me.Button2.Name = "Button2"
    Me.Button2.TabIndex = 1
    Me.Button2.Text = "Button2"
    '
    'Form2
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.Button1})
    Me.Name = "Form2"
    Me.Text = "Form2"
    Me.ResumeLayout(False)

  End Sub

#End Region
  Private Sub Button_Click _
  (ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles Button1.Click
    'If there is no handler for Button2, then add one, otherwise remove it
    If Not m_bButton2Handled Then
      AddHandler Button2.Click, AddressOf Button2_Click

      m_bButton2Handled = True
      MsgBox("Button2 Handled")
    Else
      RemoveHandler Button2.Click, AddressOf Button2_Click

      m_bButton2Handled = False
      MsgBox("Button2 is not Handled")
    End If
  End Sub

  Private Sub Button2_Click _
  (ByVal sender As System.Object, ByVal e As System.EventArgs)
    MsgBox("Button2 Pressed")
  End Sub
End Class