Listbox to ComboBox

[josros60]

Hi,

how can i chang the code below to work in ComboBox1 instead listbox.

Code:

Private Sub ComboBox1_Change()Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Select Case ListBox1.List(i)
Case "Allstream"
    Call Allstream
        Case "ANI NETWORKS"
    Call ANINET
        Case "AT&T"
    Call At
        Case "ATT"
    Call ATT
        Case "COGECO"
    Call MyPeer
        Case "Cogent"
    Call Cogent
     Case "CityWest"
    Call CityWest
        Case "EQUNIX"
    Call EQUINIX
        Case "BELLMTS"
    Call mts
        Case "Rogers Business Solutions"
    Call Rogers_Login
        Case "SHAW BUSINESS"
    Call SHAW
        Case "SOMOS"
    Call SomosLogin
        Case "VOXBONE"
    Call VOXBONE
        Case "TECHDATA CENTRE"
    Call TECHDATA
        Case "CANAD POST"
    Call CanadaPost
        Case "PUROLATOR COURIER"
    Call PUROLATOR
        Case "THINKTEL 913"
    Call THINKTEL20000913
        Case "THINKTEL 448"
    Call THINKTEL20000448
        Case "XO COMMUNICATIONS"
    Call XOMCOMMUNICATIONS
        Case "ZAYO ALLSTREAM"
    Call ZAYO
End Select
End If
Next i
End Sub

thanks

 

[josros60]

thank you so much, it worked!

 

[DanteAmor]

thank you so much, it worked!

I'm glad to help you. Thanks for the feedback.