Private Sub Form_Load()
'Picturebox als Container für den Report setzen
Call SetParent(ReportKategorie.hWnd, Picture1.hWnd)
ReportKategorie.Show
 
End Sub

Private Sub Form_Resize()
With Picture1
    .Width = Me.Width 'Picturebox an Formbreite
    .Height = Me.Height - 1020 ' und an der Höhe anpassen
    ReportKategorie.Top = 0 'Report oben links
    ReportKategorie.Left = 0
    ReportKategorie.Width = .Width 'Report gleichbreit wie die Picturebox
    ReportKategorie.Height = .Height ' und gleichhoch setzen
End With
 
'Buttons verschieben
cmdSchliessen.Left = Me.Width - 1850
cmdReportDrucken.Left = Me.Width - 3600
 
End Sub

Gruss
Cyberclone

--