codice:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 116 Then
      MsgBox KeyCode
      Me.Refresh
   End If
End Sub