[glgl123]

Hello,
I got some weird issue with combobox
Code :
Private Sub Combo1_Click()
dim d
d=0
d = d + 1
If d = 1 Then
If Combo1.Text = "please enter something" Then
Combo1.Text = ""
End If
End If
End Sub

When I click on the combo box,The text won't change
Same code on KeyPress-Works just fine

What's wrong?

Thanks in advance!

[Keithuk]

You need to put this in the Combo1_Change event.

Private Sub Combo1_Change()

Dim d As Integer

d = 0
d = d + 1
If d = 1 Then
If Combo1.Text = "please enter something" Then
Combo1.Text = ""
End If
End If

End Sub