Нажатие на клавиатуру

[Мика]

Вот у меня есть код:

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case vbkey
Case vbKeyW
End
End Select
End Sub

Этот код по идеи должен сробатывать когда я нажимаю на кл. W.
А он работает на нажатие любых клавиш.
Пробовал подругому:

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If vbKeyW Then
End
End If
End Sub

Так он вообще не реагирует не на одну клавишу.
Че делать????

[Aleksej]

А так пойдёт??
Private Sub Command1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 119
End
End Select
End Sub

[GSerg]

Уважаемый! В первом куске кода нужно писать не Select Case vbkey, а Select Case KeyCode. Во втором куске нужно писать не If vbKeyW Then, а If KeyCode=vbKeyW Then.

[Мика]

Спасибо!!