Private Form_Load ()

     Combo1.Additem "Simple"

  End Sub

  Private Sub Combo1_Click()

      If Combo1.List(Combo1.ListIndex) = "Combo1" Then
          Text1.Visible = True
      End If

  End Sub

Any doubt, Email me.

Pedro Neiva

I am using VB4 16 bit and using a combo box in drop down list mode. I want to
keep some text boxes hidden until a certain choice is picked from the list. I
am using the following code:

If Combo1.Text = "Simple" Then
  Text1.Visible = True
End If

I just can't get the text1 to be visible. (I have set the choices in the list
box and visible property on the text box at design time.

Thanks in advance

Don

As a matter of course I'd use the trim, ucase$ on both sides to make
sure that the test is satisfied.

Have you set a break and examined the contents of Combo1.Text ?

Shelly

Bob G.