H204
'Private Const WM_RBUTTONUP = &amp;H205
'Private Const WM_MBUTTONDOWN = &amp;H207
'Private Const WM_MBUTTONUP = &amp;H208
Private Const WM_CTLCOLORLISTBOX = &amp;H134

Private Const WS_HSCROLL = &amp;H100000
Private Const WS_VISIBLE = &amp;H10000000
Private Const WS_CHILD = &amp;H40000000

Private Const WS_EX_CLIENTEDGE = &amp;H200

' List box messages:
Private Const LB_ERR = (-1)

Private Const LB_ADDSTRING = &amp;H180
Private Const LB_RESETCONTENT = &amp;H184
Private Const LB_SETCURSEL = &amp;H186
Pr