Hi

Try the following;

Dim dWidth As Double

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Me.Height = Me.Height * 0.25
Else
Me.Height = dWidth
End If
End Sub

Private Sub UserForm_Initialize()
dWidth = Me.Height
End Sub


Lenny


--
Lenny_821
------------------------------------------------------------------------
Lenny_821's Profile: http://www.excelforum.com/member.php...o&userid=15179
View this thread: http://www.excelforum.com/showthread...hreadid=379394