<code>Private Sub Form_Load()
  <font color=green>' zunächst Standard-Formgröße (nur Berechnung)</font>
  cmdAction.Caption = "Erweitert"
  Me.Height = 3500
End Sub
 
<font color=green>' Action-Button</font>
Private Sub cmdAction_Click()
  If cmdAction.Caption = "Erweitert" Then
    <font color=green>' Formular aufklappen</font>
    cmdAction.Caption = "Standard"
    Me.Height = 10000
  Else
    <font color=green>' Formular zuklappen</font>
    cmdAction.Caption = "Erweitert"
    Me.Height = 3500
  End If
End Sub</code>