Visual Basic - El que me envíe un codigo de como usar las teclas de Función, le regalo un Sistema de facturacion

Amigos, necesito que me envíen un codigo para utilizar las teclas de función, a cambio les regalo un sistema de facturación completo, no es mentira, espero sus respuestas

usa sendkeys:
sendkeys "{F1}"
sendkeys "{F2}"
sendkeys "{F3}"
sendkeys "{F4}"
sendkeys "{F5}"
sendkeys "{F6}"
sendkeys "{F7}"
etc...

o

encuentra su numero ascii.

QUIERO MI SISTEMA !!!

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)


If KeyCode = vbKeyF1 Then MsgBox "F1"

End Sub

Cualquier otra tecla que necesites fijate las KEYCODECONSTANT dentro VB 6
Programalo dentro del evento KEYUP y asi de esta manera tambien podes evaluar si se hizo SHIFT + F1 por ejemplo

espero el sistema !!!

suerte.