Private Sub Form_Load()
  Timer1.Enabled = False
   Timer1.Interval = 2000
  Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF10 Then
    Timer1.Enabled = True
    Me.Print "Timer ist gestartet"
  End If
End Sub
 
Private Sub Timer1_Timer()
  MsgBox "Hallo"
End Sub