Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Declare Auto Function GetWindowRect Lib "User32" (ByVal hWnd As IntPtr, _
      ByRef lpRect As RECT) As Int32
 
    Public Structure RECT
        Public Left As Int32
        Public Top As Int32
        Public Right As Int32
        Public Bottom As Int32
    End Structure
 
    Public Function runProc(ByVal filename As String)
        Dim proc As Diagnostics.Process
        proc = Diagnostics.Process.Start(filename)
        Sleep(500)
        Dim hwnd = proc.Handle
        GetWindowRect(hwnd, r)
        MsgBox("Left=" & vbTab & r.Left & vbCr & _
        "Top=" & vbTab & r.Top & vbCr & _
        "Height=" & vbTab & r.Bottom - r.Top & vbCr & _
        "Width=" & vbTab & r.Right - r.Left)
        Return 0
    End Function