ILLFOCUS = &amp;H8
Private Const WM_MOUSEACTIVATE = &amp;H21
Private Const WM_DRAWITEM = &amp;H2B
Private Const WM_MEASUREITEM = &amp;H2C
Private Const WM_SETFONT = &amp;H30
Private Const WM_GETFONT = &amp;H31
Private Const WM_COMMAND = &amp;H111
Private Const WM_KEYDOWN = &amp;H100
Private Const WM_KEYUP = &amp;H101
Private Const WM_CHAR = &amp;H102
'Private Const WM_MOUSEMOVE = &amp;H200
'Private Const WM_LBUTTONDOWN = &amp;H201
'Private Const WM_LBUTTONUP = &amp;H202
'Private Const WM_RBUTTONDOWN = &amp;