ng hWnd, GWL_EXSTYLE, lStyle
   ' Make the style 'take':
   SetWindowPos hWnd, 0, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOZORDER Or
    SWP_FRAMECHANGED Or SWP_NOSIZE Or SWP_NOMOVE

End Sub

''' &lt;summary&gt;
''' Draw the current status text in the "status bar" picture box.
''' &lt;/summary&gt;
Private Function DrawStatus()
   picStatus.Cls
   If (m_iValue &lt;&gt; 0) Then
      picStatus.Line (0, 0)-(picStatus.ScaleWidth * m_iValue \ m_iMax,
       picStatus.ScaleHeight), vbButtonShadow, BF
      picStatus.F