Private Declare SUB VBMOVEPROGRESSBAR Lib "vbex32.dll"
                     (BYVAL nhDL AS LONG, _
                      BYVAL x AS LONG, _
                      BYVAL y AS LONG)
 
Private Sub Form_Load()
     MoveWindow me.hwnd, 100,100
End Sub
 
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