Option Explicit
Dim stdWidth As Long  ' Normale Breite der Form
Dim maxWidth As Long  ' Maximal-Breite der Form
 
Private Sub Form_Load()
  ' Vorgaben
  stdWidth = 6000
  maxWidth = 9000
End Sub
 
' Form vergrößern/verkleinern
Private Sub cmdMore_Click()  
  If Me.Width = stdWidth Then
    ' Form auf Maximal-Breite "faden"
    While Me.Width < maxWidth
      Me.Width = Me.Width + 5
    Wend
    cmdMore.Caption = "<< Normal"
  Else
    ' Form wieder auf Normalbreite "faden"
    While Me.Width > stdWidth
      Me.Width = Me.Width - 5
    Wend
    cmdMore.Caption = "Erweitert >>"
  End If
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)