[RESOLVED] Open an IE Window with a give size and position

[RobDog888]

This works without any scripting errors.

The hard way....

Option Explicit
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Type WINDOWPLACEMENT
    Length As Long
    flags As Long
    showCmd As Long
    ptMinPosition As POINTAPI
    ptMaxPosition As POINTAPI
    rcNormalPosition As RECT
End Type
 
Private Declare Function SetWindowPlacement Lib "user32.dll" ( _
                        ByVal hwnd As Long, _
                        ByRef lpwndpl As WINDOWPLACEMENT) As Long
 
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
                        ByVal lpClassName As String, _
                        ByVal lpWindowName As String) As Long
 
Private Const SW_SHOWNORMAL As Long = 1
 
Private Sub Main()
    On Error GoTo MyError
    Dim lRet As Long
    Dim wPlace As WINDOWPLACEMENT
    Dim rRect As RECT
    
    lRet = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE", vbNormalFocus)
    Do While lRet = 0
        lRet = FindWindow("IEFrame", "VBForums - Visual Basic and VB .NET Discussions and More! - Microsoft Internet Explorer")
        DoEvents
    Loop
    wPlace.Length = Len(wPlace)
    wPlace.showCmd = SW_SHOWNORMAL
    rRect.Left = 0
    rRect.Top = 0
    rRect.Right = (Screen.Width / Screen.TwipsPerPixelX) / 2
    rRect.Bottom = (Screen.Height / Screen.TwipsPerPixelY) / 2
    wPlace.rcNormalPosition = rRect
    lRet = SetWindowPlacement(lRet, wPlace)
    Exit Sub
MyError:
    MsgBox Err.Number & " - " & Err.Description
End Sub