Private Sub Command1_Click()
  With Command1
    If Val(.Tag) =0 Then
      .Tag = Me.Height
      Me.Height = Me.Height * 2
    Else
      Me.Height = .Tag
      .Tag = 0
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de