Ciao a tutti..dopo diverso tempo sono tornato qui tra voi..anche se non so per quanto potrò rimanerci...

Apparte la parentesi iniziale, il codice che puoi utilizzare è il seguente Natasha:

codice:
Private Sub Combo1_Change()
For i = 0 To Combo1.ListCount - 1
    If Combo1.Text <> Combo1.List(i) Then
    Combo1.Text = ""
    End If
Next i
End Sub
Al posto di combo1.text = "" potresti mettere quello che vuoi, per esempio il primo elemento del combo combo1.text = combo1.list(0)..

Ciao