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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de