По второму клику на кнопку изменить ее координаты - Visual Basic .NET

Формулировка задачи:

Вообщем что нужно, что бы когда я 2 раз нажимаю на кнопку она перемещалась в исходное положение ...

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Button4.Location = New Point(1292, 566)
        Button4.Text = "Переместилось"
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Location = New Point(-1, 0)
        Button1.Text = "Переместилось"
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Button2.Location = New Point(0, 568)
        Button2.Text = "Переместилось"
 
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Button3.Location = New Point(1303, 0)
        Button3.Text = "Переместилось"
 
    End Sub

Решение задачи: «По второму клику на кнопку изменить ее координаты»

textual
                            Листинг программы 
                        

                                
    Dim LocBtn1, LocBtn2, LocBtn3, LocBtn4 As Point 'Объявление переменных
 
    Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
        Call BtnPSN(sender)
    End Sub
 
    Sub BtnPSN(ByVal Кнопка As Button)
  Select Кнопка.Name
            Case Is = "Button1"
                If Кнопка.Location <> LocBtn1 And (LocBtn1.X <> vbEmpty And LocBtn1.Y <> vbEmpty) Then
                    Кнопка.Location = LocBtn1
                    Кнопка.Text = "Вернули"
                Else
                    LocBtn1 = Кнопка.Location
                    Кнопка.Location = New Point(50, Кнопка.Location.Y)
                    Кнопка.Text = "Новое место"
                End If
            Case Is = "Button2"
                If Кнопка.Location <> LocBtn2 And (LocBtn2.X <> vbEmpty And LocBtn2.Y <> vbEmpty) Then
                    Кнопка.Location = LocBtn2
                    Кнопка.Text = "Вернули"
                Else
                    LocBtn2 = Кнопка.Location
                    Кнопка.Location = New Point(60, Кнопка.Location.Y)
                    Кнопка.Text = "Новое место"
                End If
            Case Is = "Button3"
                If Кнопка.Location <> LocBtn3 And (LocBtn3.X <> vbEmpty And LocBtn3.Y <> vbEmpty) Then
                    Кнопка.Location = LocBtn3
                    Кнопка.Text = "Вернули"
                Else
                    LocBtn3 = Кнопка.Location
                    Кнопка.Location = New Point(70, Кнопка.Location.Y)
                    Кнопка.Text = "Новое место"
                End If
            Case Is = "Button4"
                If Кнопка.Location <> LocBtn4 And (LocBtn4.X <> vbEmpty And LocBtn4.Y <> vbEmpty) Then
                    Кнопка.Location = LocBtn4
                    Кнопка.Text = "Вернули"
                Else
                    LocBtn4 = Кнопка.Location
                    Кнопка.Location = New Point(80, Кнопка.Location.Y)
                    Кнопка.Text = "Новое место"
                End If
        End Select
    End Sub
                        