const activeFlag                    = 1
const btnState                      = 128
const cmdKey                        = 256
const shiftKey                      = 512
const alphaLock                     = 1024
const optionKey                     = 2048
const controlKey                    = 4096
const rightShiftKey                 = 8192
const rightOptionKey                = 16384
const rightControlKey               = 32768

dim MyEvents1 as CarbonApplicationEventsMBS
// use a global property to store your instance of your subclass
dim p as CarbonHotKeyMBS // this should also be global

MyEvents1.Listen

p=new CarbonHotKeyMBS
p.AddKey(&h24, optionKey, OSTypeFromStringMBS("MBSG"), 5)

if p.LastError<>0 then
  MsgBox "The Hotkey could not be registered!"
end if

// key will be released when p is destroyed on closing the window.