PUBLIC FUNCTION Solo_Numeros()
    'Message.Warning(Key.Code)
    SELECT CASE Key.Code
        CASE Key["0"] TO key["9"]     '0123456789
        CASE Key.Control AND Key["C"] 'control+C
        CASE Key.Control AND Key["X"] 'control+X
        CASE Key.Control AND Key["V"] 'control+V
        CASE Key.Left                 'izquierda
        CASE Key.Right                'derecha
        CASE Key.BackSpace            'borrar atras
        CASE Key.Delete               'borrar delante
        CASE Key.Tab                  'tabulador
        CASE ELSE
          STOP EVENT
    END SELECT
END