Code: Select all
Private Sub APRI_COMBO()
With Me.IMGCOMBOSTATO
.ComboItems.Clear
Set .ImageList = Me.ImageList1
For K = 1 To Me.ImageList1.ListImages.Count
STATO = Me.ImageList1.ListImages(K).Key
.ComboItems.Add , , STATO, K
If InStr(STATO, "ITALY") > 0 Then J = K
Next K
Me.LNR.Caption = K
End With
Me.IMGCOMBOSTATO.Text = Me.IMGCOMBOSTATO.ComboItems.Item(J).Index'<<<<<
End Sub