Dim counter As Integer

Dim firstNumber As Integer

Dim secondNumber As Integer

Dim higher As Boolean

Dim lower As Boolean

Private Sub cmdFirst_Click()

If counter = 0 Then

Randomize Timer

firstNumber = Int(Rnd * 101)

txtFirstNumber.Text = Str(firstNumber)

txtSecondNumber.Text = ""

Else

MsgBox "Please pick a second number"

End If

counter = 1

End Sub

Private Sub cmdSecond_Click()

If counter = 1 Then

Randomize Timer

secondNumber = (Rnd * 101)

txtSecondNumber.Text = Str(secondNumber)

Else

MsgBox "Please pick a first number"

End If

If (higher = True) And (secondNumber > firstNumber) Then

lblWinner.Caption = "You Win !!!"

WindowsMediaPlayer1.URL = "C:\vb\chimes.wav"

ElseIf (higher = True) And (firstNumber > secondNumber) Then

lblWinner.Caption = "You Lose"

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

ElseIf (lower = True) And (secondNumber > firstNumber) Then

lblWinner.Caption = "You Lose"

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

ElseIf (lower = True) And (firstNumber > secondNumber) Then

lblWinner.Caption = "You Win !!!"

WindowsMediaPlayer1.URL = "C:\vb\chimes.wav"

End If

counter = 0

higher = False

lower = False

optHigher = 0

optLower = 0

End Sub

Private Sub optHigher_Click()

higher = 1

lower = 0

End Sub

Private Sub optLower_Click()

higher = 0

lower = 1

End Sub

Private Sub cmdExit_Click()

End

End Sub