combo box

[tas]

Usa un flag per impedire che venga eseguito il codice nell'evento Click del Combo:

'nelle dichiarazioni del form
Private lock As Boolean

Private Sub Combo1_Click()
   If Not lock Then
      'qui metti il codice da eseguire
      'ad ogni selezione del combo
   End If
End Sub

Private Sub Form_Load()
   Combo1.AddItem "a"
   Combo1.AddItem "b"
   Combo1.AddItem "c"

   'imposta ListIndex
   lock = True
   Combo1.ListIndex = 1
   lock = False
End Sub