|
Dim ret As Long
ret = RegisterHotKey (hwnd, hotKeyID, key, key1)
If ret = 0 Then
MessageBox hwnd, hotKeyType&"Already occupied !!! Please reset it !!!", "Prompt", vbInformation + vbOKOnly
ElseIf ret = 1 Then
'Setup succeeded
SetHotKey = True
Else
MessageBox hwnd, "Setting"&hotKeyType&"Failed !! Please reset it !!!", "Prompt", vbInformation + vbOKOnly
End If |
|