Private Declare Function MoveWindow Lib "user32" (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 Long
 
Private Sub Command1_Click()
    MoveWindow Me.hwnd, 200, 200, Me.Width / Screen.TwipsPerPixelX, _
                                  Me.Height / Screen.TwipsPerPixelY, 1
End Sub