Option Explicit

Dim m_colOrdTextoCorretora As Collection
Dim m_colOrdNumeroCorretora As Collection

Private Sub cmdOrdenacao_Click()
    Dim intI As Integer
   
    cboCorretora.Clear
   
    If cmdOrdenacao.Caption = "A-Z" Then
        'Ordena por número
        cmdOrdenacao.Caption = "0-9"
       
        For intI = 1 To m_colOrdNumeroCorretora.Count
            cboCorretora.AddItem m_colOrdNumeroCorretora(intI)
        Next
    Else
        'Ordena por texto
        cmdOrdenacao.Caption = "A-Z"
       
        For intI = 1 To m_colOrdTextoCorretora.Count
            cboCorretora.AddItem m_colOrdTextoCorretora(intI)
        Next
    End If
End Sub

Private Sub Form_Initialize()
    Set m_colOrdTextoCorretora = New Collection
    Set m_colOrdNumeroCorretora = New Collection
End Sub

Private Sub Form_Load()
    Dim intI As Integer
    Dim vrtArray As Variant
   
    vrtArray = Array("SP", "RJ", "MG", "RS", "AM", "MT")

    For intI = 0 To UBound(vrtArray)
        cboCorretora.AddItem vrtArray(intI) & "(" & intI & ")"
        m_colOrdTextoCorretora.Add vrtArray(intI)
        m_colOrdNumeroCorretora.Add intI
       
        If vrtArray(intI) = "SP" Then
            cboCorretora.ListIndex = intI
        End If
    Next
End Sub

deixa eu te fazer uma pergunta quais são os dados inseridos neste combo, ou como estaão formatados, ex:

 

01 - RJ

02 - SP

 

ou

 

sp

rj

 

poste como estes dados são inseridos

usa dois combos já ordenados e na hora de clicar vc oculta um e mostra o outro

Oi Treze.

 

Ele adiciona estes tipos de dados, conforme trecho abaixo:

cboBrokers.AddItem: MARCILIO SOUZA(311)13
cboBrokers.ItemData(.cboBrokers.ListCount - 1): 62887

 

 

 

 

 

 

 

Vilmar só mais uma duvida você gostaria que a combo ficasse assim então:

 

ao clicar em de 0-9

 

e ao clicar de 0-9

 

seria este o resultado que você deseja

 

 

sim treze, é isto mesmo.