insert item in imagecombo

[sal21]

I use this code to fill an imagecombo.

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

to the and i need to insert in imagecombo.txt the item found with J, in my case ITALY is J=120

[HansV]

Set IMGCOMBOSTATO.SelectedItem = IMGCOMBOSTATO.ComboItems(J)

[sal21]

Set IMGCOMBOSTATO.SelectedItem = IMGCOMBOSTATO.ComboItems(J)