Combo: descobrir texto a partir do Index ?
Como faço isto?

Já tentei:
m_frm.cboValidade.ItemData(intI).Text
m_frm.cboValidade.List(intI).Text
Mas ambos dão erro, pq nao tem esta propriedade

Tentei isto abaixo, mas não dá certo pq toda hora dispara o cboValidade_Click e chama novamente a rotina UpdateUI() que tem o código abaixo entre outros:

 

If m_Doc.TipoOfertaValidade = "CEC" Then
    'Oferta de Compra com validade "Executa ou Cancela" (F1)
    intI = 0
   
    Do While intI <= m_frm.cboValidade.ListCount
        m_frm.cboValidade.ListIndex = intI
           
        If m_frm.cboValidade.Text = "Executa e Cancela" Then
            Exit Do
        End If
       
        intI = intI + 1
    Loop
End If

ok, vlw !

ficou assim:

        'Oferta de Compra com validade "Executa ou Cancela" (F1)
        For intJ = 0 To m_frm.cboValidade.ListCount - 1
            If m_frm.cboValidade.List(intJ) = "Executa e Cancela" Then
                m_frm.cboValidade.ListIndex = intJ
                Exit For
            End If
        Next intJ