SoloCodigo

Option Explicit
Dim x, y As Integer

Private Sub cmdComenzar_Click()
    x = CInt(Rnd() * (9 - 1) + 1)
End Sub

Private Sub cmdComparar_Click()
    txty = y
    If x > y Then MsgBox " Intente de nuevo el numero es Mayor"
    If x < y Then MsgBox " Intente de nuevo el numero es Memor"
    else x = y Then MsgBox "Enhorabuena aceptaste vuelve a jugar"
   
 
End Sub

Private Sub cmdLimpiar_Click()
    txty = Empty
    txty.SetFocus
End Sub

Private Sub cmdSalir_Click()
    End
End Sub

Private Sub Form_Activate()
    Randomize
    cmdLimpiar.Enabled = False
    cmdComparar.Enabled = False
End Sub
Private Sub txty_Change()
    cmdLimpiar.Enabled = True
    cmdComparar.Enabled = True
End Sub