VERSION 5.00
Begin VB.Form frmMessage 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "WM_ decode"
   ClientHeight    =   930
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2970
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   930
   ScaleWidth      =   2970
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox chkHex 
      Caption         =   "Number is in HEX"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   600
      Width           =   2655
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Decode"
      Height          =   375
      Left            =   1800
      TabIndex        =   1
      Top             =   120
      Width           =   1095
   End
   Begin VB.TextBox txtMsgId 
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1455
   End
End
Attribute VB_Name = "frmMessage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public Enum WindowMessages
    WM_ACTIVATE = &H6
    WM_ACTIVATEAPP = &H1C
    WM_ASKCBFORMATNAME = &H30C
    WM_CANCELJOURNAL = &H4B
    WM_CANCELMODE = &H1F
    WM_CAPTURECHANGED = &H1F
    WM_CAPTURECHANGED_R = &H215
    WM_CHANGECBCHAIN = &H30D
    WM_CHAR = &H102
    WM_CHARTOITEM = &H2F
    WM_CHILDACTIVATE = &H22
    WM_CHOOSEFONT_GETLOGFONT = &H401
    WM_CHOOSEFONT_SETFLAGS = (&H400 + 102)
    WM_CHOOSEFONT_SETLOGFONT = (&H400 + 101)
    WM_CLEAR = &H303
    WM_CLOSE = &H10
    WM_COMMAND = &H111
    WM_COMPACTING = &H41
    WM_COMPAREITEM = &H39
    WM_CONTEXTMENU = &H7B
    WM_CONVERTREQUESTEX = &H108
    WM_COPY = &H301
    WM_COPYDATA = &H4A
    WM_CREATE = &H1
    WM_CTLCOLORBTN = &H135
    WM_CTLCOLORDLG = &H136
    WM_CTLCOLOREDIT = &H133
    WM_CTLCOLORLISTBOX = &H134
    WM_CTLCOLORMSGBOX = &H132
    WM_CTLCOLORSCROLLBAR = &H137
    WM_CTLCOLORSTATIC = &H138
    WM_CUT = &H300
    WM_DDE_ACK = (&H3E0 + 4)
    WM_DDE_ADVISE = (&H3E0 + 2)
    WM_DDE_DATA = (&H3E0 + 5)
    WM_DDE_EXECUTE = (&H3E0 + 8)
    WM_DDE_FIRST = &H3E0
    WM_DDE_INITIATE = &H3E0
    WM_DDE_LAST = (&H3E0 + 8)
    WM_DDE_POKE = (&H3E0 + 7)
    WM_DDE_REQUEST = (&H3E0 + 6)
    WM_DDE_TERMINATE = (&H3E0 + 1)
    WM_DDE_UNADVISE = (&H3E0 + 3)
    WM_DEADCHAR = &H103
    WM_DELETEITEM = &H2D
    WM_DESTROY = &H2
    WM_DESTROYCLIPBOARD = &H307
    WM_DEVICECHANGE = &H219
    WM_DEVMODECHANGE = &H1B
    WM_DRAWCLIPBOARD = &H308
    WM_DRAWITEM = &H2B
    WM_DROPFILES = &H233
    WM_ENABLE = &HA
    WM_ENDSESSION = &H16
    WM_ENTERIDLE = &H121
    WM_ENTERSIZEMOVE = &H231
    WM_ENTERMENULOOP = &H211
    WM_ERASEBKGND = &H14
    WM_EXITMENULOOP = &H212
    WM_EXITSIZEMOVE = &H232
    WM_FONTCHANGE = &H1D
    WM_GETDLGCODE = &H87
    WM_GETFONT = &H31
    WM_GETHOTKEY = &H33
    WM_GETMINMAXINFO = &H24
    WM_GETTEXT = &HD
    WM_GETTEXTLENGTH = &HE
    WM_HELP = &H53
    WM_HOTKEY = &H312
    WM_HSCROLL = &H114
    WM_HSCROLLCLIPBOARD = &H30E
    WM_ICONERASEBKGND = &H27
    WM_IME_CHAR = &H286
    WM_IME_COMPOSITION = &H10F
    WM_IME_COMPOSITIONFULL = &H284
    WM_IME_CONTROL = &H283
    WM_IME_ENDCOMPOSITION = &H10E
    WM_IME_KEYDOWN = &H290
    WM_IME_KEYLAST = &H10F
    WM_IME_KEYUP = &H291
    WM_IME_NOTIFY = &H282
    WM_IME_SELECT = &H285
    WM_IME_SETCONTEXT = &H281
    WM_IME_STARTCOMPOSITION = &H10D
    WM_INITDIALOG = &H110
    WM_INITMENU = &H116
    WM_INITMENUPOPUP = &H117
    WM_INPUTLANGCHANGEREQUEST = &H50
    WM_INPUTLANGCHANGE = &H51
    WM_KEYDOWN = &H100
    WM_KEYUP = &H101
    WM_KILLFOCUS = &H8
    WM_LBUTTONDBLCLK = &H203
    WM_LBUTTONDOWN = &H201
    WM_LBUTTONUP = &H202
    WM_MBUTTONDBLCLK = &H209
    WM_MBUTTONDOWN = &H207
    WM_MBUTTONUP = &H208
    WM_MDIACTIVATE = &H222
    WM_MDICASCADE = &H227
    WM_MDICREATE = &H220
    WM_MDIDESTROY = &H221
    WM_MDIGETACTIVE = &H229
    WM_MDIICONARRANGE = &H228
    WM_MDIMAXIMIZE = &H225
    WM_MDINEXT = &H224
    WM_MDIREFRESHMENU = &H234
    WM_MDIRESTORE = &H223
    WM_MDISETMENU = &H230
    WM_MDITILE = &H226
    WM_MEASUREITEM = &H2C
    WM_MENUCHAR = &H120
    WM_MENUSELECT = &H11F
    WM_MENURBUTTONUP = &H122
    WM_MENUDRAG = &H123
    WM_MENUGETOBJECT = &H124
    WM_MENUCOMMAND = &H126
    WM_MOUSEACTIVATE = &H21
    WM_MOUSEHOVER = &H2A1
    WM_MOUSELEAVE = &H2A3
    WM_MOUSEMOVE = &H200
    WM_MOUSEWHEEL = &H20A
    WM_MOVE = &H3
    WM_MOVING = &H216
    WM_NCACTIVATE = &H86
    WM_NCCALCSIZE = &H83
    WM_NCCREATE = &H81
    WM_NCDESTROY = &H82
    WM_NCHITTEST = &H84
    WM_NCLBUTTONDBLCLK = &HA3
    WM_NCLBUTTONDOWN = &HA1
    WM_NCLBUTTONUP = &HA2
    WM_NCMBUTTONDBLCLK = &HA9
    WM_NCMBUTTONDOWN = &HA7
    WM_NCMBUTTONUP = &HA8
    WM_NCMOUSEMOVE = &HA0
    WM_NCPAINT = &H85
    WM_NCRBUTTONDBLCLK = &HA6
    WM_NCRBUTTONDOWN = &HA4
    WM_NCRBUTTONUP = &HA5
    WM_NEXTDLGCTL = &H28
    WM_NEXTMENU = &H213
    WM_NULL = &H0
    WM_PAINT = &HF
    WM_PAINTCLIPBOARD = &H309
    WM_PAINTICON = &H26
    WM_PALETTECHANGED = &H311
    WM_PALETTEISCHANGING = &H310
    WM_PARENTNOTIFY = &H210
    WM_PASTE = &H302
    WM_PENWINFIRST = &H380
    WM_PENWINLAST = &H38F
    WM_POWER = &H48
    WM_POWERBROADCAST = &H218
    WM_PRINT = &H317
    WM_PRINTCLIENT = &H318
    WM_PSD_ENVSTAMPRECT = (&H400 + 5)
    WM_PSD_FULLPAGERECT = (&H400 + 1)
    WM_PSD_GREEKTEXTRECT = (&H400 + 4)
    WM_PSD_MARGINRECT = (&H400 + 3)
    WM_PSD_MINMARGINRECT = (&H400 + 2)
    WM_PSD_PAGESETUPDLG = (&H400)
    WM_PSD_YAFULLPAGERECT = (&H400 + 6)
    WM_QUERYDRAGICON = &H37
    WM_QUERYENDSESSION = &H11
    WM_QUERYNEWPALETTE = &H30F
    WM_QUERYOPEN = &H13
    WM_QUEUESYNC = &H23
    WM_QUIT = &H12
    WM_RBUTTONDBLCLK = &H206
    WM_RBUTTONDOWN = &H204
    WM_RBUTTONUP = &H205
    WM_RENDERALLFORMATS = &H306
    WM_RENDERFORMAT = &H305
    WM_SETCURSOR = &H20
    WM_SETFOCUS = &H7
    WM_SETFONT = &H30
    WM_SETHOTKEY = &H32
    WM_SETREDRAW = &HB
    WM_SETTEXT = &HC
    WM_SETTINGCHANGE = &H1A
    WM_SHOWWINDOW = &H18
    WM_SIZE = &H5
    WM_SIZING = &H214
    WM_SIZECLIPBOARD = &H30B
    WM_SPOOLERSTATUS = &H2A
    WM_SYSCHAR = &H106
    WM_SYSCOLORCHANGE = &H15
    WM_SYSCOMMAND = &H112
    WM_SYSDEADCHAR = &H107
    WM_SYSKEYDOWN = &H104
    WM_SYSKEYUP = &H105
    WM_TIMECHANGE = &H1E
    WM_TIMER = &H113
    WM_UNDO = &H304
    WM_USER = &H400
    WM_VKEYTOITEM = &H2E
    WM_VSCROLL = &H115
    WM_VSCROLLCLIPBOARD = &H30A
    WM_WINDOWPOSCHANGED = &H47
    WM_WINDOWPOSCHANGING = &H46
    WM_WININICHANGE = &H1A
    WM_APPCOMMAND = &H319
End Enum


Public Function sGetMessageName(ByVal msg As WindowMessages) As String

Select Case msg
Case WM_ACTIVATE
        sGetMessageName = "WM_ACTIVATE '&H6"
Case WM_ACTIVATEAPP '&H1C:
        sGetMessageName = "WM_ACTIVATEAPP '&H1C"
Case WM_ASKCBFORMATNAME '&H30C:
        sGetMessageName = "WM_ASKCBFORMATNAME '&H30C"
Case WM_CANCELJOURNAL '&H4B:
        sGetMessageName = "WM_CANCELJOURNAL '&H4B"
Case WM_CANCELMODE '&H1F:
        sGetMessageName = "WM_CANCELMODE '&H1F"
Case WM_CAPTURECHANGED '&H1F:
        sGetMessageName = "WM_CAPTURECHANGED '&H1F"
Case WM_CAPTURECHANGED_R '&H215:
        sGetMessageName = "WM_CAPTURECHANGED_R '&H215"
Case WM_CHANGECBCHAIN '&H30D:
        sGetMessageName = "WM_CHANGECBCHAIN '&H30D"
Case WM_CHAR '&H102:
        sGetMessageName = "WM_CHAR '&H102"
Case WM_CHARTOITEM '&H2F:
        sGetMessageName = "WM_CHARTOITEM '&H2F"
Case WM_CHILDACTIVATE '&H22:
        sGetMessageName = "WM_CHILDACTIVATE '&H22"
Case WM_CHOOSEFONT_GETLOGFONT '&H401:
        sGetMessageName = "WM_CHOOSEFONT_GETLOGFONT '&H401"
Case WM_CHOOSEFONT_SETFLAGS '(&H400 + 102):
        sGetMessageName = "WM_CHOOSEFONT_SETFLAGS '(&H400 + 102)"
Case WM_CHOOSEFONT_SETLOGFONT '(&H400 + 101):
        sGetMessageName = "WM_CHOOSEFONT_SETLOGFONT '(&H400 + 101)"
Case WM_CLEAR '&H303:
        sGetMessageName = "WM_CLEAR '&H303"
Case WM_CLOSE '&H10:
        sGetMessageName = "WM_CLOSE '&H10"
Case WM_COMMAND '&H111:
        sGetMessageName = "WM_COMMAND '&H111"
Case WM_COMPACTING '&H41:
        sGetMessageName = "WM_COMPACTING '&H41"
Case WM_COMPAREITEM '&H39:
        sGetMessageName = "WM_COMPAREITEM '&H39"
Case WM_CONTEXTMENU '&H7B:
        sGetMessageName = "WM_CONTEXTMENU '&H7B"
Case WM_CONVERTREQUESTEX '&H108:
        sGetMessageName = "WM_CONVERTREQUESTEX '&H108"
Case WM_COPY '&H301:
        sGetMessageName = "WM_COPY '&H301"
Case WM_COPYDATA '&H4A:
        sGetMessageName = "WM_COPYDATA '&H4A"
Case WM_CREATE '&H1:
        sGetMessageName = "WM_CREATE '&H1"
Case WM_CTLCOLORBTN '&H135:
        sGetMessageName = "WM_CTLCOLORBTN '&H135"
Case WM_CTLCOLORDLG '&H136:
        sGetMessageName = "WM_CTLCOLORDLG '&H136"
Case WM_CTLCOLOREDIT '&H133:
        sGetMessageName = "WM_CTLCOLOREDIT '&H133"
Case WM_CTLCOLORLISTBOX '&H134:
        sGetMessageName = "WM_CTLCOLORLISTBOX '&H134"
Case WM_CTLCOLORMSGBOX '&H132:
        sGetMessageName = "WM_CTLCOLORMSGBOX '&H132"
Case WM_CTLCOLORSCROLLBAR '&H137:
        sGetMessageName = "WM_CTLCOLORSCROLLBAR '&H137"
Case WM_CTLCOLORSTATIC '&H138:
        sGetMessageName = "WM_CTLCOLORSTATIC '&H138"
Case WM_CUT '&H300:
        sGetMessageName = "WM_CUT '&H300"
Case WM_DDE_ACK '(&H3E0 + 4):
        sGetMessageName = "WM_DDE_ACK '(&H3E0 + 4)"
Case WM_DDE_ADVISE '(&H3E0 + 2):
        sGetMessageName = "WM_DDE_ADVISE '(&H3E0 + 2)"
Case WM_DDE_DATA '(&H3E0 + 5):
        sGetMessageName = "WM_DDE_DATA '(&H3E0 + 5)"
Case WM_DDE_EXECUTE '(&H3E0 + 8):
        sGetMessageName = "WM_DDE_EXECUTE '(&H3E0 + 8)"
Case WM_DDE_FIRST '&H3E0:
        sGetMessageName = "WM_DDE_FIRST '&H3E0"
Case WM_DDE_INITIATE '&H3E0:
        sGetMessageName = "WM_DDE_INITIATE '&H3E0"
Case WM_DDE_LAST '(&H3E0 + 8):
        sGetMessageName = "WM_DDE_LAST '(&H3E0 + 8)"
Case WM_DDE_POKE '(&H3E0 + 7):
        sGetMessageName = "WM_DDE_POKE '(&H3E0 + 7)"
Case WM_DDE_REQUEST '(&H3E0 + 6):
        sGetMessageName = "WM_DDE_REQUEST '(&H3E0 + 6)"
Case WM_DDE_TERMINATE '(&H3E0 + 1):
        sGetMessageName = "WM_DDE_TERMINATE '(&H3E0 + 1)"
Case WM_DDE_UNADVISE '(&H3E0 + 3):
        sGetMessageName = "WM_DDE_UNADVISE '(&H3E0 + 3)"
Case WM_DEADCHAR '&H103:
        sGetMessageName = "WM_DEADCHAR '&H103"
Case WM_DELETEITEM '&H2D:
        sGetMessageName = "WM_DELETEITEM '&H2D"
Case WM_DESTROY '&H2:
        sGetMessageName = "WM_DESTROY '&H2"
Case WM_DESTROYCLIPBOARD '&H307:
        sGetMessageName = "WM_DESTROYCLIPBOARD '&H307"
Case WM_DEVICECHANGE '&H219:
        sGetMessageName = "WM_DEVICECHANGE '&H219"
Case WM_DEVMODECHANGE '&H1B:
        sGetMessageName = "WM_DEVMODECHANGE '&H1B"
Case WM_DRAWCLIPBOARD '&H308:
        sGetMessageName = "WM_DRAWCLIPBOARD '&H308"
Case WM_DRAWITEM '&H2B:
        sGetMessageName = "WM_DRAWITEM '&H2B"
Case WM_DROPFILES '&H233:
        sGetMessageName = "WM_DROPFILES '&H233"
Case WM_ENABLE '&HA:
        sGetMessageName = "WM_ENABLE '&HA"
Case WM_ENDSESSION '&H16:
        sGetMessageName = "WM_ENDSESSION '&H16"
Case WM_ENTERIDLE '&H121:
        sGetMessageName = "WM_ENTERIDLE '&H121"
Case WM_ENTERSIZEMOVE '&H231:
        sGetMessageName = "WM_ENTERSIZEMOVE '&H231"
Case WM_ENTERMENULOOP '&H211:
        sGetMessageName = "WM_ENTERMENULOOP '&H211"
Case WM_ERASEBKGND '&H14:
        sGetMessageName = "WM_ERASEBKGND '&H14"
Case WM_EXITMENULOOP '&H212:
        sGetMessageName = "WM_EXITMENULOOP '&H212"
Case WM_EXITSIZEMOVE '&H232:
        sGetMessageName = "WM_EXITSIZEMOVE '&H232"
Case WM_FONTCHANGE '&H1D:
        sGetMessageName = "WM_FONTCHANGE '&H1D"
Case WM_GETDLGCODE '&H87:
        sGetMessageName = "WM_GETDLGCODE '&H87"
Case WM_GETFONT '&H31:
        sGetMessageName = "WM_GETFONT '&H31"
Case WM_GETHOTKEY '&H33:
        sGetMessageName = "WM_GETHOTKEY '&H33"
Case WM_GETMINMAXINFO '&H24:
        sGetMessageName = "WM_GETMINMAXINFO '&H24"
Case WM_GETTEXT '&HD:
        sGetMessageName = "WM_GETTEXT '&HD"
Case WM_GETTEXTLENGTH '&HE:
        sGetMessageName = "WM_GETTEXTLENGTH '&HE"
Case WM_HELP '&H53:
        sGetMessageName = "WM_HELP '&H53"
Case WM_HOTKEY '&H312:
        sGetMessageName = "WM_HOTKEY '&H312"
Case WM_HSCROLL '&H114:
        sGetMessageName = "WM_HSCROLL '&H114"
Case WM_HSCROLLCLIPBOARD '&H30E:
        sGetMessageName = "WM_HSCROLLCLIPBOARD '&H30E"
Case WM_ICONERASEBKGND '&H27:
        sGetMessageName = "WM_ICONERASEBKGND '&H27"
Case WM_IME_CHAR '&H286:
        sGetMessageName = "WM_IME_CHAR '&H286"
Case WM_IME_COMPOSITION '&H10F:
        sGetMessageName = "WM_IME_COMPOSITION '&H10F"
Case WM_IME_COMPOSITIONFULL '&H284:
        sGetMessageName = "WM_IME_COMPOSITIONFULL '&H284"
Case WM_IME_CONTROL '&H283:
        sGetMessageName = "WM_IME_CONTROL '&H283"
Case WM_IME_ENDCOMPOSITION '&H10E:
        sGetMessageName = "WM_IME_ENDCOMPOSITION '&H10E"
Case WM_IME_KEYDOWN '&H290:
        sGetMessageName = "WM_IME_KEYDOWN '&H290"
Case WM_IME_KEYLAST '&H10F:
        sGetMessageName = "WM_IME_KEYLAST '&H10F"
Case WM_IME_KEYUP '&H291:
        sGetMessageName = "WM_IME_KEYUP '&H291"
Case WM_IME_NOTIFY '&H282:
        sGetMessageName = "WM_IME_NOTIFY '&H282"
Case WM_IME_SELECT '&H285:
        sGetMessageName = "WM_IME_SELECT '&H285"
Case WM_IME_SETCONTEXT '&H281:
        sGetMessageName = "WM_IME_SETCONTEXT '&H281"
Case WM_IME_STARTCOMPOSITION '&H10D:
        sGetMessageName = "WM_IME_STARTCOMPOSITION '&H10D"
Case WM_INITDIALOG '&H110:
        sGetMessageName = "WM_INITDIALOG '&H110"
Case WM_INITMENU '&H116:
        sGetMessageName = "WM_INITMENU '&H116"
Case WM_INITMENUPOPUP '&H117:
        sGetMessageName = "WM_INITMENUPOPUP '&H117"
Case WM_INPUTLANGCHANGEREQUEST '&H50:
        sGetMessageName = "WM_INPUTLANGCHANGEREQUEST '&H50"
Case WM_INPUTLANGCHANGE '&H51:
        sGetMessageName = "WM_INPUTLANGCHANGE '&H51"
Case WM_KEYDOWN '&H100:
        sGetMessageName = "WM_KEYDOWN '&H100"
Case WM_KEYUP '&H101:
        sGetMessageName = "WM_KEYUP '&H101"
Case WM_KILLFOCUS '&H8:
        sGetMessageName = "WM_KILLFOCUS '&H8"
Case WM_LBUTTONDBLCLK '&H203:
        sGetMessageName = "WM_LBUTTONDBLCLK '&H203"
Case WM_LBUTTONDOWN '&H201:
        sGetMessageName = "WM_LBUTTONDOWN '&H201"
Case WM_LBUTTONUP '&H202:
        sGetMessageName = "WM_LBUTTONUP '&H202"
Case WM_MBUTTONDBLCLK '&H209:
        sGetMessageName = "WM_MBUTTONDBLCLK '&H209"
Case WM_MBUTTONDOWN '&H207:
        sGetMessageName = "WM_MBUTTONDOWN '&H207"
Case WM_MBUTTONUP '&H208:
        sGetMessageName = "WM_MBUTTONUP '&H208"
Case WM_MDIACTIVATE '&H222:
        sGetMessageName = "WM_MDIACTIVATE '&H222"
Case WM_MDICASCADE '&H227:
        sGetMessageName = "WM_MDICASCADE '&H227"
Case WM_MDICREATE '&H220:
        sGetMessageName = "WM_MDICREATE '&H220"
Case WM_MDIDESTROY '&H221:
        sGetMessageName = "WM_MDIDESTROY '&H221"
Case WM_MDIGETACTIVE '&H229:
        sGetMessageName = "WM_MDIGETACTIVE '&H229"
Case WM_MDIICONARRANGE '&H228:
        sGetMessageName = "WM_MDIICONARRANGE '&H228"
Case WM_MDIMAXIMIZE '&H225:
        sGetMessageName = "WM_MDIMAXIMIZE '&H225"
Case WM_MDINEXT '&H224:
        sGetMessageName = "WM_MDINEXT '&H224"
Case WM_MDIREFRESHMENU '&H234:
        sGetMessageName = "WM_MDIREFRESHMENU '&H234"
Case WM_MDIRESTORE '&H223:
        sGetMessageName = "WM_MDIRESTORE '&H223"
Case WM_MDISETMENU '&H230:
        sGetMessageName = "WM_MDISETMENU '&H230"
Case WM_MDITILE '&H226:
        sGetMessageName = "WM_MDITILE '&H226"
Case WM_MEASUREITEM '&H2C:
        sGetMessageName = "WM_MEASUREITEM '&H2C"
Case WM_MENUCHAR '&H120:
        sGetMessageName = "WM_MENUCHAR '&H120"
Case WM_MENUSELECT '&H11F:
        sGetMessageName = "WM_MENUSELECT '&H11F"
Case WM_MENURBUTTONUP '&H122:
        sGetMessageName = "WM_MENURBUTTONUP '&H122"
Case WM_MENUDRAG '&H123:
        sGetMessageName = "WM_MENUDRAG '&H123"
Case WM_MENUGETOBJECT '&H124:
        sGetMessageName = "WM_MENUGETOBJECT '&H124"
Case WM_MENUCOMMAND '&H126:
        sGetMessageName = "WM_MENUCOMMAND '&H126"
Case WM_MOUSEACTIVATE '&H21:
        sGetMessageName = "WM_MOUSEACTIVATE '&H21"
Case WM_MOUSEHOVER '&H2A1:
        sGetMessageName = "WM_MOUSEHOVER '&H2A1"
Case WM_MOUSELEAVE '&H2A3:
        sGetMessageName = "WM_MOUSELEAVE '&H2A3"
Case WM_MOUSEMOVE '&H200:
        sGetMessageName = "WM_MOUSEMOVE '&H200"
Case WM_MOUSEWHEEL '&H20A:
        sGetMessageName = "WM_MOUSEWHEEL '&H20A"
Case WM_MOVE '&H3:
        sGetMessageName = "WM_MOVE '&H3"
Case WM_MOVING '&H216:
        sGetMessageName = "WM_MOVING '&H216"
Case WM_NCACTIVATE '&H86:
        sGetMessageName = "WM_NCACTIVATE '&H86"
Case WM_NCCALCSIZE '&H83:
        sGetMessageName = "WM_NCCALCSIZE '&H83"
Case WM_NCCREATE '&H81:
        sGetMessageName = "WM_NCCREATE '&H81"
Case WM_NCDESTROY '&H82:
        sGetMessageName = "WM_NCDESTROY '&H82"
Case WM_NCHITTEST '&H84:
        sGetMessageName = "WM_NCHITTEST '&H84"
Case WM_NCLBUTTONDBLCLK '&HA3:
        sGetMessageName = "WM_NCLBUTTONDBLCLK '&HA3"
Case WM_NCLBUTTONDOWN '&HA1:
        sGetMessageName = "WM_NCLBUTTONDOWN '&HA1"
Case WM_NCLBUTTONUP '&HA2:
        sGetMessageName = "WM_NCLBUTTONUP '&HA2"
Case WM_NCMBUTTONDBLCLK '&HA9:
        sGetMessageName = "WM_NCMBUTTONDBLCLK '&HA9"
Case WM_NCMBUTTONDOWN '&HA7:
        sGetMessageName = "WM_NCMBUTTONDOWN '&HA7"
Case WM_NCMBUTTONUP '&HA8:
        sGetMessageName = "WM_NCMBUTTONUP '&HA8"
Case WM_NCMOUSEMOVE '&HA0:
        sGetMessageName = "WM_NCMOUSEMOVE '&HA0"
Case WM_NCPAINT '&H85:
        sGetMessageName = "WM_NCPAINT '&H85"
Case WM_NCRBUTTONDBLCLK '&HA6:
        sGetMessageName = "WM_NCRBUTTONDBLCLK '&HA6"
Case WM_NCRBUTTONDOWN '&HA4:
        sGetMessageName = "WM_NCRBUTTONDOWN '&HA4"
Case WM_NCRBUTTONUP '&HA5:
        sGetMessageName = "WM_NCRBUTTONUP '&HA5"
Case WM_NEXTDLGCTL '&H28:
        sGetMessageName = "WM_NEXTDLGCTL '&H28"
Case WM_NEXTMENU '&H213:
        sGetMessageName = "WM_NEXTMENU '&H213"
Case WM_NULL '&H0:
        sGetMessageName = "WM_NULL '&H0"
Case WM_PAINT '&HF:
        sGetMessageName = "WM_PAINT '&HF"
Case WM_PAINTCLIPBOARD '&H309:
        sGetMessageName = "WM_PAINTCLIPBOARD '&H309"
Case WM_PAINTICON '&H26:
        sGetMessageName = "WM_PAINTICON '&H26"
Case WM_PALETTECHANGED '&H311:
        sGetMessageName = "WM_PALETTECHANGED '&H311"
Case WM_PALETTEISCHANGING '&H310:
        sGetMessageName = "WM_PALETTEISCHANGING '&H310"
Case WM_PARENTNOTIFY '&H210:
        sGetMessageName = "WM_PARENTNOTIFY '&H210"
Case WM_PASTE '&H302:
        sGetMessageName = "WM_PASTE '&H302"
Case WM_PENWINFIRST '&H380:
        sGetMessageName = "WM_PENWINFIRST '&H380"
Case WM_PENWINLAST '&H38F:
        sGetMessageName = "WM_PENWINLAST '&H38F"
Case WM_POWER '&H48:
        sGetMessageName = "WM_POWER '&H48"
Case WM_POWERBROADCAST '&H218:
        sGetMessageName = "WM_POWERBROADCAST '&H218"
Case WM_PRINT '&H317:
        sGetMessageName = "WM_PRINT '&H317"
Case WM_PRINTCLIENT '&H318:
        sGetMessageName = "WM_PRINTCLIENT '&H318"
Case WM_PSD_ENVSTAMPRECT '(&H400 + 5):
        sGetMessageName = "WM_PSD_ENVSTAMPRECT '(&H400 + 5)"
Case WM_PSD_FULLPAGERECT '(&H400 + 1):
        sGetMessageName = "WM_PSD_FULLPAGERECT '(&H400 + 1)"
Case WM_PSD_GREEKTEXTRECT '(&H400 + 4):
        sGetMessageName = "WM_PSD_GREEKTEXTRECT '(&H400 + 4)"
Case WM_PSD_MARGINRECT '(&H400 + 3):
        sGetMessageName = "WM_PSD_MARGINRECT '(&H400 + 3)"
Case WM_PSD_MINMARGINRECT '(&H400 + 2):
        sGetMessageName = "WM_PSD_MINMARGINRECT '(&H400 + 2)"
Case WM_PSD_PAGESETUPDLG '(&H400):
        sGetMessageName = "WM_PSD_PAGESETUPDLG '(&H400)"
Case WM_PSD_YAFULLPAGERECT '(&H400 + 6):
        sGetMessageName = "WM_PSD_YAFULLPAGERECT '(&H400 + 6)"
Case WM_QUERYDRAGICON '&H37:
        sGetMessageName = "WM_QUERYDRAGICON '&H37"
Case WM_QUERYENDSESSION '&H11:
        sGetMessageName = "WM_QUERYENDSESSION '&H11"
Case WM_QUERYNEWPALETTE '&H30F:
        sGetMessageName = "WM_QUERYNEWPALETTE '&H30F"
Case WM_QUERYOPEN '&H13:
        sGetMessageName = "WM_QUERYOPEN '&H13"
Case WM_QUEUESYNC '&H23:
        sGetMessageName = "WM_QUEUESYNC '&H23"
Case WM_QUIT '&H12:
        sGetMessageName = "WM_QUIT '&H12"
Case WM_RBUTTONDBLCLK '&H206:
        sGetMessageName = "WM_RBUTTONDBLCLK '&H206"
Case WM_RBUTTONDOWN '&H204:
        sGetMessageName = "WM_RBUTTONDOWN '&H204"
Case WM_RBUTTONUP '&H205:
        sGetMessageName = "WM_RBUTTONUP '&H205"
Case WM_RENDERALLFORMATS '&H306:
        sGetMessageName = "WM_RENDERALLFORMATS '&H306"
Case WM_RENDERFORMAT '&H305:
        sGetMessageName = "WM_RENDERFORMAT '&H305"
Case WM_SETCURSOR '&H20:
        sGetMessageName = "WM_SETCURSOR '&H20"
Case WM_SETFOCUS '&H7:
        sGetMessageName = "WM_SETFOCUS '&H7"
Case WM_SETFONT '&H30:
        sGetMessageName = "WM_SETFONT '&H30"
Case WM_SETHOTKEY '&H32:
        sGetMessageName = "WM_SETHOTKEY '&H32"
Case WM_SETREDRAW '&HB:
        sGetMessageName = "WM_SETREDRAW '&HB"
Case WM_SETTEXT '&HC:
        sGetMessageName = "WM_SETTEXT '&HC"
Case WM_SETTINGCHANGE '&H1A:
        sGetMessageName = "WM_SETTINGCHANGE '&H1A"
Case WM_SHOWWINDOW '&H18:
        sGetMessageName = "WM_SHOWWINDOW '&H18"
Case WM_SIZE '&H5:
        sGetMessageName = "WM_SIZE '&H5"
Case WM_SIZING '&H214:
        sGetMessageName = "WM_SIZING '&H214"
Case WM_SIZECLIPBOARD '&H30B:
        sGetMessageName = "WM_SIZECLIPBOARD '&H30B"
Case WM_SPOOLERSTATUS '&H2A:
        sGetMessageName = "WM_SPOOLERSTATUS '&H2A"
Case WM_SYSCHAR '&H106:
        sGetMessageName = "WM_SYSCHAR '&H106"
Case WM_SYSCOLORCHANGE '&H15:
        sGetMessageName = "WM_SYSCOLORCHANGE '&H15"
Case WM_SYSCOMMAND '&H112:
        sGetMessageName = "WM_SYSCOMMAND '&H112"
Case WM_SYSDEADCHAR '&H107:
        sGetMessageName = "WM_SYSDEADCHAR '&H107"
Case WM_SYSKEYDOWN '&H104:
        sGetMessageName = "WM_SYSKEYDOWN '&H104"
Case WM_SYSKEYUP '&H105:
        sGetMessageName = "WM_SYSKEYUP '&H105"
Case WM_TIMECHANGE '&H1E:
        sGetMessageName = "WM_TIMECHANGE '&H1E"
Case WM_TIMER '&H113:
        sGetMessageName = "WM_TIMER '&H113"
Case WM_UNDO '&H304:
        sGetMessageName = "WM_UNDO '&H304"
Case WM_USER '&H400:
        sGetMessageName = "WM_USER '&H400"
Case WM_VKEYTOITEM '&H2E:
        sGetMessageName = "WM_VKEYTOITEM '&H2E"
Case WM_VSCROLL '&H115:
        sGetMessageName = "WM_VSCROLL '&H115"
Case WM_VSCROLLCLIPBOARD '&H30A:
        sGetMessageName = "WM_VSCROLLCLIPBOARD '&H30A"
Case WM_WINDOWPOSCHANGED '&H47:
        sGetMessageName = "WM_WINDOWPOSCHANGED '&H47"
Case WM_WINDOWPOSCHANGING '&H46:
        sGetMessageName = "WM_WINDOWPOSCHANGING '&H46"
Case WM_WININICHANGE '&H1A:
        sGetMessageName = "WM_WININICHANGE '&H1A"
Case WM_APPCOMMAND '&H319:
        sGetMessageName = "WM_APPCOMMAND '&H319"
Case Else
        sGetMessageName = "UNKNOWN"
End Select

End Function

Private Sub Command1_Click()

Call MsgBox(sGetMessageName(IIf(chkHex.Value = vbChecked, "&H", "0") & Me.txtMsgId.Text), vbInformation)

End Sub