Private Sub Generate_Click()
Dim i As Integer
i = Int(100 * Rnd) + 1
Text1.Text = i
End Sub
'----------------------------------------------------
Private Sub Guess_Click()
Dim G, i As Integer
i = Text1.Text
G = Text2.Text

If G > i Then MsgBox "Smaler", vbInformation
If G < i Then MsgBox "Bigger", vbInformation
If G = i Then MsgBox "Corect", vbInformation
End Sub

Dim guessNumberTextBox As Integer
        Dim correctNumber As Integer
      

        correctNumber = CInt(Int((100 - 1 + 1) * Rnd() + 1))

        Select Case guessNumberTextBox < correctNumber
            Case false
                outputLabel.Text = "Higher..."

            Case true
                outputLabel.Text = "Lower..."

        End Select

        If guessNumberTextBox = correctNumber = True Then
            outputLabel.Text = "Correct"
        End If

    End Sub

    Private Sub newGameButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newGameButton.Click
        guessNumberTextBox.Text = ""
        outputLabel.Text = ""
    End Sub

Private Sub Guess_Click()
Dim i, g As Integer

i = Int(100 * Rnd) + 1
g = Text1.Text

If g > i Then MsgBox "Smaller", vbExclamation
If g < i Then MsgBox "Bigger", vbExclamation
If g = i Then MsgBox "Correct", vbExclamation
End Sub

Private Sub NewGame_Click()
Text1.Text = ""
End Sub