Finde højde og bredde på eksternt program

Option Explicit

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Sub Form_Resize()
Dim Rec As RECT
Dim lHwnd As Long

lHwnd = Me.hwnd

GetWindowRect lHwnd, Rec

Me.Caption = "Width = " & (Rec.Right - Rec.Left) _
          & " Height = " & (Rec.Bottom - Rec.Top)
End Sub

sjh -> Du er ikke gud, men det fandme tæt på! Mange tak :D

:-)