Private Declare SUB VBMOVEPROGRESSBAR Lib "vbex32.dll"
                     (BYVAL nhDL AS LONG, _
                      BYVAL x AS LONG, _
                      BYVAL y AS LONG)
 
Private Sub MoveWindow(Byval nHWnd As Long, Byval x As Long, Byval y As Long)
      x = x / Screen.TwipsperpixelX
      y = y / Screen.TwipsperpixelY
 
      VBMOVEPROGRESSBAR nHWnd, x,y
End Sub