Visual Basic - Keypress

Estoy intentando hacer una calculadora y kiero k funcione con las teclas del teclado como lo puedo hacer, si alguien lo sabe k me lo diga por favor XP

te traté de enviar un mail pero me lo devolvió por que el mail que escribiste no existe
pero igual
este es el mail :

Te envío una función
la puedes cambiar a tu gusto

Así se llama
Private Sub txtMonto_KeyPress(KeyAscii As Integer)
KeyAscii = Validanum(KeyAscii)
End Sub


esta es la función


Function Validanum(Tecla As Integer) As Integer
\' se inicilalisa la función
Validanum = 0
\' si es un punto lo cambio por una coma
If Tecla = 46 Then Tecla = 44
\' veo si es un numero o la tecla backspace o una coma
If (Tecla >= 48 And Tecla <= 57) Or Tecla = 8 Or (Tecla = 44) Then
Validanum = Tecla
End If
End Function




en el caso de no ser un numero no escribe nada

puedes colocarla en el keypress del form pero al asignarla al cuaedro de texto debes hacer un calculo matemático



if (Tecla >= 48 And Tecla <= 57) Then
\' si es un Nº
text1.text= keyascii - 48
else
if keyascii=44 then
\' si es coma
text1.text =\",\"
else
if keyascii= 8 then
\'es backspace
text1.text = left(text1.text,len(text1.text)-1)
end if
end if

--

Muchas gracias por la ayuda, ahora voy a ver si soy capaz de poder hacerlo cuando lo haga te lo digo, gracias NARA

Muchas gracias por la ayuda, ahora voy a ver si soy capaz de poder hacerlo cuando lo haga te lo digo, gracias NARA