Setter for HotKeyModifier Property does not confirm change correctly

This may be a bug in your hotkey:

Old:

Public Property Let HotKeyModifier(ByVal eModifier As echkModifierKeys) Dim lT As Long
   lT = HotKeyAndModifier
   If ((lT And &HFF00F) \ &HFF&) <> (eModifier And &HFF&) Then
      lT = (eModifier And &HFF&) * &H100& Or (lT And &HFF&)
      SendMessageByLong m_hWnd, HKM_SETHOTKEY, lT, 0
      PropertyChanged "HotKeyModifier"
   End If
End Property

I suggest it may be meant to be:

   If ((lT And &HFF00) \ &H100&) <> eModifier Then
      lT = eModifier * &H100& Or (lT And &HFF&)