التحكم فى سيناريو ثلاثة من RadioButton

السلام عليكم

على افتراض ان لديك 3  RadioButton  على الفورم نجعل خاصية tag  فى RadioButton1=1  وهكذا للثانى 2 والثالث 3

Public Class Form1
    Private Enum CurrentCheckedRadioButton
        None = 0
        RadioButton1 = 1
        RadioButton2 = 2
        RadioButton3 = 3
    End Enum
    Private chekedRadioButton As CurrentCheckedRadioButton = CurrentCheckedRadioButton.None
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged
        If CType(sender, Windows.Forms.RadioButton).Name = chekedRadioButton.ToString Then
            Exit Sub
        End If
        Select Case chekedRadioButton
            Case CurrentCheckedRadioButton.RadioButton1
                MessageBox.Show("You Moved form :RadioButton1 to : " + CType(sender, Windows.Forms.RadioButton).Name)
            Case CurrentCheckedRadioButton.RadioButton2
                MessageBox.Show("You Moved form :RadioButton2 to : " + CType(sender, Windows.Forms.RadioButton).Name)
            Case CurrentCheckedRadioButton.RadioButton3
                MessageBox.Show("You Moved form :RadioButton3 to : " + CType(sender, Windows.Forms.RadioButton).Name)
        End Select
        chekedRadioButton = CInt(CType(sender, Windows.Forms.RadioButton).Tag)
    End Sub
End Class

اخي للاسف الكود لم يعمل , هل بالامكان ان تضعه لي في مثال اذا تكرمت وجزاك الله خيرا

    Private Sub RadioButton123_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged

If Not Me.Visible Then Exit Sub

Static c As Boolean = False, f As String, t As String

If c = False Then

f = sender.Text

c = Not c

Exit Sub

Else

t = sender.Text

c = Not c

End If

MsgBox("انت انتقلت من " & f & " الى " & t & "", &H180000)

End Sub

المثالRadioButton.rar

شكرا جزيلا لكم وبارك الله لكم جميعا