Private Sub Handler1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Text = "One"
    End Sub
    Private Sub Handler3(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Text = "Three"
    End Sub

    Private Sub Handler2(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Text = "Two"
    End Sub

    Private Sub RadioButtonChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                    Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged
        RemoveHandler Button1.Click, AddressOf Handler1
        RemoveHandler Button1.Click, AddressOf Handler2
        RemoveHandler Button1.Click, AddressOf Handler3

        Select Case True
            Case sender Is RadioButton1 : AddHandler Button1.Click, AddressOf Handler1
            Case sender Is RadioButton2 : AddHandler Button1.Click, AddressOf Handler2
            Case sender Is RadioButton3 : AddHandler Button1.Click, AddressOf Handler3
        End Select
    End Sub