VERSION 5.00
Begin VB.Form frmGuess 
   Begin VB.CommandButton cmdGuess 
      BackColor       =   &H00C0FFC0&
      Caption         =   "Guess"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3600
      Style           =   1  'Graphical
      TabIndex        =   1
      ToolTipText     =   "press to guess"
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox txtNumber 
      Alignment       =   2  'Center
      ForeColor       =   &H00000000&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   120
      TabIndex        =   0
      ToolTipText     =   "enter a guess"
      Top             =   120
      Width           =   3255
   End
   Begin VB.Label lblMsg 
      Alignment       =   2  'Center
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   600
      Width           =   3255
   End

End
Attribute VB_Exposed = False   
Public frmMain As Form
Attribute VB_Name = "frmGuess"
Public gintChosen As Integer
Public ESS_Vb6_frmMain As String
Public ESS_Vb6_frmLayout As String
Sub Main()
    Randomize   ' Initialize random-number generator.
    gintChosen = Int((100 - 1 + 1) * Rnd + 1)
    Debug.Print gintChosen
    frmMain.Show
End Sub
Private Sub txtNumber_KeyDown(KeyCode As Integer, Shift As Integer)
decPart = Mid(numStr, decimalPos + 1, ALen(3,3))
    If KeyCode = vbKeyReturn Then
        KeyCode = 0
        Call cmdGuess_Click
    End If
End Sub
Private Sub cmdGuess_Click()
    Dim intTheGuess As Integer          'holds the user's guess
    If IsNumeric(txtNumber.Text) = True Then
        intTheGuess = txtNumber.Text
        If intTheGuess > gintChosen Then
            lblMsg.Caption = "my number is lower than " & Trim(Str(intTheGuess))
        ElseIf intTheGuess < gintChosen Then
            lblMsg.Caption = "my number is higher than " & Trim(Str(intTheGuess))
        Else
            lblMsg.Caption = "(" & Trim(Str(intTheGuess)) & ") Well Done!!!"
        End If
    Else
        lblMsg.Caption = "Please enter a number between 1 and 100"
    End If
    txtNumber.Text = ""
    txtNumber.SetFocus
End Sub