Могу ли я добавить ключевые события в таймер в VB.NET

Question

Возможно ли, что я могу добавить ключевые события в свой таймер. Я знаю, что могу добавить события мыши, но когда я пытаюсь запустить следующий код в SUB таймера: if e.keycode keys.E, то msgbox.show ("Bla bla bla") end if. В нем говорится, что вы можете добавлять только тиковые события. Спасибо за ваше время.

,,,, Publi c Class Form2

Private Sub Form2_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    If e.KeyCode = Keys.W Then
        W.BackColor = Color.White
    End If
    If e.KeyCode = Keys.S Then
        Label2.BackColor = Color.White
    End If
    If e.KeyCode = Keys.A Then
        Label1.BackColor = Color.White
    End If
    If e.KeyCode = Keys.D Then
        Label3.BackColor = Color.White
    End If
End Sub

Private Sub Form2_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
    If e.KeyCode = Keys.W Then
        W.BackColor = Color.Gray

    End If
    If e.KeyCode = Keys.S Then
        Label2.BackColor = Color.Gray
    End If
    If e.KeyCode = Keys.A Then
        Label1.BackColor = Color.Gray
    End If
    If e.KeyCode = Keys.D Then
        Label3.BackColor = Color.Gray
    End If
End Sub
'just some stuff

Private Sub Form2_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    If Button.MouseButtons = MouseButtons.Left Then
        Label4.BackColor = Color.White
    End If
    If Button.MouseButtons = MouseButtons.Right Then
        Label5.BackColor = Color.White
    End If
End Sub

Private Sub Form2_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
    If e.Button = MouseButtons.Left Then
        Label4.BackColor = Color.Gray

    End If
    If e.Button = MouseButtons.Right Then
        Label5.BackColor = Color.Gray
    End If
End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.TopMost = True
    Timer1.Start()


End Sub
'my problem
Private Sub Timer1_Tick(sender As Object, e As KeyEventArgs) Handles Timer1.Tick
    If e.KeyCode = Keys.W Then
        W.BackColor = Color.White

    End If

End Sub

End Class ,,,,,