Hotkey von label.caption text verwenden

[mcoocr]

Hallo zusammen,

Ich möchte bei der Funktion KeyPress, bei dem hotkey, statt vbKeyf12, vbKeya, vbKey1 usw. die caption eines labels verwenden... ^^

Declaration für KeyPress (Ähnlich wie Keydown)

Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
ByVal nVirtKey As Long) As Integer
Private Const KeyPressed As Integer = -32767

der Code für den Timer

Private Sub Timer1_Timer()
Dim hotkey As Long
hotkey = label.caption 'statt label.caption sollte normal vbKeyF1, vbKeyA, vbKey1,... dortstehen

If GetAsyncKeyState(hotkey) = KeyPressed Then
MsgBox "worked"
End If
End Sub

--

Bitte um schnelle Antwort