Private Sub Form_Resize()
  Dim nPos As Long
 
  If Me.WindowState <> vbMinimized Then
    ' aktuelle Splitter-Position merken
    With roSplitterBar1
      nPos = .SplitterPos
 
      ' SplitterBar-Größe anpassen
      .Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
 
      ' alte Position wiederherstellen
      .SplitterPos = nPos
      .DoResize
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de