Private Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Boolean
Usage:
Public Sub Move(ByVal Left As Long, ByVal Top As Long, ByVal Width As Long, ByVal Height As Long, Optional ByVal Repaint As Boolean = True) If NOT MoveWindow(hWnd, Left, Top, Width, Height, Repaint) Then
Err.Raise vbObjectError, "MoveWindow", "MoveWindow returned error: H" & Hex$(Err.LastDllError)
End If
End Sub