Bus Ticketing System help

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    'TextBox1.Text = Token()
    If Button1.Enabled = True Then
        Label1.Text = Label1.Text + " A1 "

        If Button1.BackColor = Color.Yellow Then
            Button1.BackColor = Color.Red
        Else
            Button1.BackColor = Color.Yellow
        End If

    Else
        Label2.Text = ""
        Label2.Text = True

    End If
    Button1.BackColor = Color.Yellow

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    If Button2.Enabled = True Then
        Label1.Text = Label1.Text + " b1 "

        If Button1.BackColor = Color.Yellow Then
            Button1.BackColor = Color.Red
        Else
            Button1.BackColor = Color.Yellow
        End If

    Else
        Label2.Text = ""
        Label2.Text = True

    End If
    Button2.BackColor = Color.Yellow

End Sub

End Class