Public Declare Function GetWindowRect Lib "user32" ( _
  ByVal hWnd As Long, lpRect As RECT) As Long
 
Public Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

' nHandle ist das Fenster-Handle, dessen Inhalt "fotografiert" wurde!
Dim R As Rect
 
' Größe des Fensters
GetWindowRect nHandle, R
 
' PictureBox entsprechend anpassen
With PictureBox
  .Width = (R.Right - R.Left) * Screen.TwipsPerPixelX
  .Height = (R.Bottom - R.Top) * Screen.TwipsPerPixel>
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de