Option Explicit

Private Declare Function RegisterHotKey Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal id As Long, _
    ByVal fsModifiers As Long, _
    ByVal vk As Long _
) As Long
Private Declare Function UnregisterHotKey Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal id As Long _
) As Long
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" ( _
    ByVal lpString As String _
) As Integer
Private Declare Function GlobalDeleteAtom Lib "kernel32" ( _
    ByVal nAtom As Integer _
) As Integer

Private Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4

Public Function CreateHotKey(ByVal hWnd As Long, _
                             ByVal sHotKeyName As String, _
                             ByVal bShift As Boolean, _
                             ByVal bCtrl As Boolean, _
                             ByVal bAlt As Boolean, _
                             ByVal lVKey As Long) As Long
    Dim nID As Long
    nID = GlobalAddAtom(sHotKeyName)
    Call RegisterHotKey(hWnd, nID, IIf(bShift, MOD_SHIFT, 0) + IIf(bCtrl, MOD_CONTROL, 0) + IIf(bAlt, MOD_ALT, 0), lVKey)
    CreateHotKey = nID
End Function

Public Sub DeleteHotKey(ByVal hWnd As Long, ByVal nID As Long)
    Call UnregisterHotKey(hWnd, nID)
    Call GlobalDeleteAtom(nID)
End Sub

m_IdNew = CreateHotKey(Me.hWnd, "Painter_New", True, True, False, vbKeyN)