Solo numeros codigo basic (gambas)

[ghvg]

El codigo debe ser asi.

Código:

PUBLIC SUB tbxPantalla_KeyPress()

    SELECT CASE Key.Code
        CASE 48 TO 57 'Codigo ASCII de los números
            CASE key.BackSpace 'Retroceso
            CASE key.delete 'Borrar
            CASE key.tab    'Tabulador
        CASE ELSE 
            STOP EVENT 
    END SELECT 
END

Seguro te funciona...