need help in vb

[osmoses-jones]

Ok i got to make a random guessing game for my class. But it don't work for me here the code plz tell me what i am doing wrong.


Private Sub cmdClickToPlay_Click()
Dim intNumber As Integer
Dim intGuess As String

'The code below will generate a random number between 1 and 50...
Randomize
intNumber = Int(Rnd * 50) + 1


End Sub

Private Sub Click_Click()
Dim intNumber As Integer
Dim intGuess As String

Do While intGuess = intNumber
Loop

intGuess = InputBox("i am guessing a number guess what it is")

If intGuess = intNumber Then
intGuess = InputBox(" you guess it")
List1.AddItem Str(intGuess)

End If

If intGuess > intNumber Then
intGuess = InputBox("your guess is to high")
List1.AddItem Str(intGuess)

End If
If intGuess < intNumber Then
intGuess = InputBox(" your guess is to low")
List1.AddItem Str(intGuess)

End If

End Sub