Help with Simon Says game!

---

Public Class Form1
Dim Simonschoice As Integer
Dim currentlevel As Integer
Dim level As Integer
Dim rnd As New Random

Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click

btnStart.Enabled = False
btnGreen.Enabled = True
btnRed.Enabled = True
btnBlue.Enabled = True
btnYellow.Enabled = True

start()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Instructions.Show()
End Sub
Private Sub start()

level += 1
lblScore.Text = Val(level)
Simonschoice = rnd.Next(1, 5)

If Simonschoice = 1 Then
tmrGreenOFF.Enabled = True
txtSequence.Text = txtSequence.Text & 1
ElseIf Simonschoice = 2 Then
tmrRedOFF.Enabled = True
txtSequence.Text = txtSequence.Text & 2 '\
ElseIf Simonschoice = 3 Then
tmrYellowOFF.Enabled = True
txtSequence.Text = txtSequence.Text & 3
ElseIf Simonschoice = 4 Then
tmrBlueOFF.Enabled = True
txtSequence.Text = txtSequence.Text & 4
End If

End Sub
Private Sub tmrGreenOFF_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrGreenOFF.Tick
btnGreen.BackColor = Color.Lime
tmrGreenON.Enabled = True
tmrGreenOFF.Enabled = False
End Sub

Private Sub tmrGreenON_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrGreenON.Tick
btnGreen.BackColor = Color.DarkGreen
tmrGreenON.Enabled = False
Simonschoice = 0
End Sub

Private Sub tmrRedOFF_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrRedOFF.Tick
btnRed.BackColor = Color.Red
tmrRedON.Enabled = True
tmrRedOFF.Enabled = False
End Sub

Private Sub tmrRedON_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrRedON.Tick
btnRed.BackColor = Color.Maroon
tmrRedON.Enabled = False
Simonschoice = 0
End Sub

Private Sub tmrYellowOFF_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrYellowOFF.Tick
btnYellow.BackColor = Color.Yellow
tmrYellowON.Enabled = True
tmrYellowOFF.Enabled = False
End Sub

Private Sub tmrYellowON_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrYellowON.Tick
btnYellow.BackColor = Color.Olive
tmrYellowON.Enabled = False
Simonschoice = 0
End Sub

Private Sub tmrBlueOFF_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrBlueOFF.Tick
btnBlue.BackColor = Color.Blue
tmrBlueON.Enabled = True
tmrBlueOFF.Enabled = False
End Sub

Private Sub tmrBlueON_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrBlueON.Tick
btnBlue.BackColor = Color.MidnightBlue
tmrBlueON.Enabled = False
Simonschoice = 0
End Sub

Private Sub btnGreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGreen.Click
checkThis.Text = checkThis.Text & 1

If checkThis.TextLength = level Then
If checkThis.Text = txtSequence.Text Then
start()
End If
End If

End Sub

Private Sub btnRed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRed.Click
checkThis.Text = checkThis.Text & 2

If checkThis.TextLength = level Then
If checkThis.Text = txtSequence.Text Then
start()
End If
End If

End Sub

Private Sub btnBlue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBlue.Click
checkThis.Text = checkThis.Text & 4

If checkThis.TextLength = level Then
If checkThis.Text = txtSequence.Text Then
start()
End If
End If

End Sub

Private Sub btnYellow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYellow.Click
checkThis.Text = checkThis.Text & 3

If checkThis.TextLength = level Then
If checkThis.Text = txtSequence.Text Then
start()
End If
End If

End Sub

Private Sub checkThis_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles checkThis.TextChanged
Dim playAgain As MsgBoxResult

If checkThis.Text <> txtSequence.Text Then
My.Computer.Audio.Play(My.Resources.lose, AudioPlayMode.Background)
MsgBox("You lose!")
level = 0
playAgain = MsgBox("Would you like to play again?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "Play Again?")
If playAgain = MsgBoxResult.Yes Then
txtSequence.Text = ""
checkThis.Text = ""
start()
Else
Me.Close()
End If
End If

If checkThis.Text = txtSequence.Text Then

End If

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If btnStart.Enabled = True Then
btnGreen.Enabled = False
btnRed.Enabled = False
btnBlue.Enabled = False
btnYellow.Enabled = False
End If


End Sub
End Class

---