Поменять цвет и надпись в кнопке и при повторном нажатии поменять на изначальный

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.ForeColor = Color.Red
        Button1.Text = "Текст"
    End Sub

Public Class Form1
 
    'Объявление переменных сохраняющих информацию всё время жизни Form1
    'Назовём их условно "Постояными".
    Dim MyForeColor As Color = Color.Red
    Dim MyText As String = "Пока"
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        'Инициализация состояний элемента Button1 при загрузке Form1
        Button1.ForeColor = Color.Green
        Button1.Text = "Привет"
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        'Объявление переменных сохраняющих информацию только во время выполнения Button1_Click
        'для временного сохранения предыдущего состояния Button1
        Dim PrForeColor As Color = Button1.ForeColor
        Dim PrText As String = Button1.Text
 
        'Изменение сотояния Button1
        Button1.ForeColor = MyForeColor
        Button1.Text = MyText
 
        'Запись предыдущего состояния в  постояные переменные
        MyForeColor = PrForeColor
        MyText = PrText
    End Sub
End Class

Private oldText() As String
Private oldColor() As Color
Private bb As Boolean
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    oldText = {"Start", "The End"}
    oldColor = {Color.LightGreen, Color.Red}
    Button1.Text = oldText(0)
    Button1.BackColor = oldColor(0)
    bb = True
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    bb = Not bb
    If bb Then
        Button1.Text = oldText(0)
        Button1.BackColor = oldColor(0)
    Else
        Button1.Text = oldText(1)
        Button1.BackColor = oldColor(1)
    End If
End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        'Объявление переменных сохраняющих информацию только во время выполнения Button1_Click
        'для временного сохранения предыдущего состояния Button1
        Dim PrForeColor As Color = Button1.ForeColor
        Dim PrText As String = Button1.Text
 
        'Изменение сотояния Button1
        Button1.ForeColor = MyForeColor
        Button1.Text = MyText
 
        'Запись предыдущего состояния в  постояные переменные
        MyForeColor = PrForeColor
        MyText = PrText
    End Sub

Dim PrForeColor As Color = Button1.ForeColor

Dim PrForeColor As Color
PrForeColor = Button1.ForeColor