Binaryworld - How to move/resize window using API? ... [ VB -> Shell ]

Private Const SWP_SHOWWINDOW = &H40
Private Const SW_HIDE = 0
Private Const SW_RESTORE = 9
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
  Dim lngDesktop As Long, lngWidth As Long, retVal As Long
  lngDesktop = GetDesktopWindow
  retVal = ShellExecute(lngDesktop, vbNullString, "NOTEPAD.EXE", _
      vbNullString, "C:\", SW_RESTORE)
  If retVal < 0 Or retVal > 32 Then
    Sleep 100                     ' give time for window to be created
    retVal = FindWindow(vbNullString, "Untitled - Notepad")
    If retVal Then
      lngWidth = Screen.Width \ Screen.TwipsPerPixelX \ 2
      SetWindowPos retVal, Me.hwnd, lngWidth, 0, lngWidth, _
          Screen.Height \ Screen.TwipsPerPixelY, SWP_SHOWWINDOW
    End If
  End If
End Sub