Option ExplicitPrivate Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As LongPrivate Const HOTKEYF_SHIFT As Long = &H1 Private Const HOTKEYF_ALT As Long = &H4 Private Const WM_SETHOTKEY As Long = &H32Private Sub Form_Load() Dim rc As Long Dim wHotKey As LongwHotKey = (HOTKEYF_ALT) * (2 ^ 8) + 65 rc = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotKey, 0) End Sub
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As LongPrivate Const HOTKEYF_SHIFT As Long = &H1
Private Const HOTKEYF_ALT As Long = &H4
Private Const WM_SETHOTKEY As Long = &H32Private Sub Form_Load()
Dim rc As Long
Dim wHotKey As LongwHotKey = (HOTKEYF_ALT) * (2 ^ 8) + 65
rc = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotKey, 0)
End Sub