G = &amp;H0&amp;
Private Const WS_EX_LEFTSCROLLBAR = &amp;H4000&amp;
Private Const WS_EX_RIGHTSCROLLBAR = &amp;H0&amp;

Private Const WS_EX_CONTROLPARENT = &amp;H10000
Private Const WS_EX_STATICEDGE = &amp;H20000
Private Const WS_EX_APPWINDOW = &amp;H40000

'#endif ' /* WINVER &gt;= =&amp;H0400 */

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &amp;H2
Private Const SWP_NOSIZE = &amp;H1

Private Sub chkAlwaysOnTop_Click()
   If chkAlwaysOnTop.Value = Checked The