Number Game- Reset, instructions, ehancements!

[ashblynn02]

I am creating a game... "Guess the Number Game" The progam is to generate a random number, then the user is to attempt to guess the number. The program is to generate hints to the user which allows the user to refine teh guesses as the game goes on, and is to generate the number of guesses taken.

I need help with these items: How would I fix these items?--
1) I don't know how to generate the guesses taken
2) The 'how to play' button is not working. I want it to give the instructions of the game even though they are pretty much self-explanatory in a message box
3) I am tying to get the reset button to work also and I can't get it to work. I don't know whats wrong with it.
4) also I would like to enhance the game a little bit.... more like "warm" "hot" "cold" "freezing" "boiling" or something along those lines.

Please help :) Thanks!!!

Public Class frmproject5
    Inherits System.Windows.Forms.Form
    Dim intNumberToGuess As Long
    Dim previousGuesses As New System.Collections.Hashtable

    Private Sub Button1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguess.Click

        Dim intGuess As Long
        Dim UpperBound As Long
        Dim LowerBound As Long

        If IsNumeric(txtguess.Text) Then
            intGuess = CLng(txtguess.Text)
        Else
            MsgBox("Enter a number into the textbox!")
        End If

        Update()

        If Not (previousGuesses(intGuess) Is Nothing) Then
            lblinfo.Text() = "youve already tried this number - try again"

            MsgBox("youve already tried this number - try again")

        Else

            If intGuess < intNumberToGuess Then
                lblinfo.Text() = "Too Low!"

                MsgBox("Number is Too Low - Have another go!")

            ElseIf intGuess > intNumberToGuess Then

                lblinfo.Text = "Too High!"

                MsgBox("Number is Too High - Have another go!")

            ElseIf intGuess = intNumberToGuess Then

                lblinfo.Text = "You've Got It!"

                MsgBox("Well Done - You've worked out the random number - Now have another go!")

                intNumberToGuess = Int((UpperBound - LowerBound + 100) * Rnd() + LowerBound)

            End If

            'Add the numbers guessed into the listbox

            listguess.Items.Add(txtguess.Text)

            previousGuesses(intGuess) = intGuess

        End If



    End Sub

    Private Sub btnHnowToPlay_Click()
        MsgBox("Type a number between 0 and 100 into the box labeled Type Guess Here. The program will generate a random number and will tell you if you've gone to high or to low, keep guessing until you are CORRECT! but you only have 6 guesses.")
    End Sub

    Private Sub cmdReset_Click()
        txtguess.Text = ""
        ' listguess.clear()
        lblinfo.Text = ""
        btnguess.Enabled = False
        Randomize()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim intNumberToGuess As Long
        Dim UpperBound As Long
        Dim LowerBound As Long

        Randomize()

        intNumberToGuess = Int((UpperBound - LowerBound + 100) * Rnd() + LowerBound)
    End Sub

End Class