Private Sub Form_Resize()
  Static bResize  As Boolean
 
  If bResize Then Exit Sub
  bResize = True
  ' Wenn das Fenster minimiert ist, können auch die
  ' Steuerelemente nicht an das Form angepasst werden.
  If Me.WindowState = vbMinimized Then Exit Sub
 
  ' Wenn die Höhe, oder die Breite des Forms unter das Minimum sinken,
  ' dann einfach wieder auf das Minimum setzten
  If Me.Height < lMinHeight Then Me.Height = lMinHeight
  If Me.Width < lMinWidth Then Me.Width = lMinWidth
 
  ' Sonsitge anpassungen
 
  bResize = False
End Sub

Private Sub Form_Resize()
  Static lState   As Long
 
  If lState = vbMaximized And Me.WindowState = vbNormal Then
    ' Dann wurde das Form gerade wiederhergestellt
    Me.Left = 100
    Me.Top = 100
  End If
end sub