Expand the Height of a form if "Not Managed" selected
 

i need some ideas on expanding the height of a form when a comboBox item is
selected. I have the code to display the Items but cannot get the Height to
increase.
Here is what i have. Thanks
-mark
Private Sub cboSvctxt_Change()
If cboSvctxt.Value = "Not Managed" Then
Label12.Visible = True
Label13.Visible = True
txtHost.Visible = True
txtIP.Visible = True
ExpandForm 289
Else
End If
End Sub

Expand the Height of a form if "Not Managed" selected
 

Ok Figured this one out. had to make a ExpandForm Sub function.
here is code if anyone cares...
rivate Sub ExpandForm(iTo As Integer)
Dim y As Long
If iTo Height Then
For x = Height To iTo
Height = x
GoSub ExpandFormLoop
Next
Else
For x = Height To iTo Step -1
Height = x
GoSub ExpandFormLoop
Next
End If
Exit Sub
ExpandFormLoop:
y = 0
Do
y = y + 1
Loop Until y = 2
Return
End Sub

"Mark Cover" wrote:

i need some ideas on expanding the height of a form when a comboBox item is
selected. I have the code to display the Items but cannot get the Height to
increase.
Here is what i have. Thanks
-mark
Private Sub cboSvctxt_Change()
If cboSvctxt.Value = "Not Managed" Then
Label12.Visible = True
Label13.Visible = True
txtHost.Visible = True
txtIP.Visible = True
ExpandForm 289
Else
End If
End Sub