Postačí tento kousek?
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.P Then
If Timer1.Enabled Then
Timer1.Stop()
Else
Timer1.Start()
End If
End If
End Sub