Setting text property on Combobox

[trapper]

I know this question has been asked before, but it has never really been answered.

I am using a combobox as a type 2, dropdown combo. I am trying to place a prompting text in the text field of the combobox: i.e. "Select Country" for a country selection dropdown.

I can't simply set the text property because it's read-only. I will not set the type to 0 unless there is a way to prevent users from adding any text they want.

I am hoping that there is an API (Probably the ubiquitous "SendMessage") or some trick.

Thanks for any help.

trapper

[Jop]

Don't know how to do exactely what you want, but give this a try:

Private Sub Combo1_DropDown()
If Combo1.List(0) = "Please select a number" Then Combo1.RemoveItem 0
End Sub

Private Sub Form_Load()
Dim x%
Combo1.AddItem "Please select a number"
For x = 0 To 40
Combo1.AddItem x
Next x
Combo1.ListIndex = 0
End Sub