Private Sub Form_Load()
  Dim maxWidth As Long
  Dim maxHeight As Long
  Dim w As Long
  Dim h As Long
 
  maxWidth = Me.Width
  maxHeight = Me.Height
 
  ' minimale Fenstergröße
  Me.Width = 300
  Me.Height = 300
  Me.Show
 
  While Me.Width < maxWidth And Me.Height < maxHeight
    w = Me.Width + 75
    If w > maxWidth Then w = maxWidth
 
    h = Me.Height + 75
    If h > maxHeight Then h = maxHeight
 
    Me.Move Me.Left, Me.Top, w, h
    DoEvents
  Wend
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de