Visual Basic - por k no me funciona

Ps yo puse este codigo para k cuado aprieta la tecla F1 aparezca un mensaje...
Pero cuando pongo una CAJA DE TEXTO y ejecuto mi programa no quiere funcionar...
por k seraaaaaaa..

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
MsgBox "df"
End If
End Sub

por fa ayudenme nenessss..

Si quieres que funcione con el formulario, entonces pon la propiedad KeyPreview a True

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
text1.setfocus
End If
If KeyCode = vbKeyF2 Then
text2.setfocus
End If
If KeyCode = vbKeyF3 Then
text3.setfocus
End If
End Sub
propiedad keypreview del formulario en true y tiene que funcionar
entonces si presionas f1 el cursor se para en el text1
y asi simultaneamente
Saludos