IF_RANGE = &amp;H1
Private Const SIF_PAGE = &amp;H2
Private Const SIF_POS = &amp;H4
Private Const SIF_DISABLENOSCROLL = &amp;H8
Private Const SIF_TRACKPOS = &amp;H10
Private Const SIF_ALL = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS)
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Const WM_VSCROLL = &amp;H115
Private Const WM_HSCROLL = &amp;H114
Private Const SB_THUMBPOSITION = 4
Private Const SB_THUMBTRACK = 5
Private Const OBJID_VSCROLL = &amp;HFFFFFFFB
Private Const OBJID_HSCROLL = &am