Como Impedir que escriban Letras, solo Numeros en un Text ?

[T3rryMan]

Hola
en Visual basic6
Seria del siguiente modo
Un control llamando TxtUsuario y metemos el sgte codigo en su evento KEYPRESS

Código vb:

Private Sub TxtUsuario_KeyPress(KeyAscii As Integer)
        Select Case KeyAscii
            Case 8, 46
            Case Is < 48, Is > 57
                KeyAscii = 0
        End Select
End Sub
 

Pruebalo y me dices

www.bitxense.com.pe | Soluciones Informaticas S.A.C. - [email protected]
Cualquier duda soy Jhon Bautista Palomino aqui esta mi correo MSN [email protected] Lima-Peru