[VB6] Richiamare funzione che ordina elementi di una ComboBox

[Makemsis]

Ho il seguete codice che serve per ordinare in ordine alfabetico un'eventuale ComboBox

Private Sub Sort(ByVal bAscending As Boolean, obj As Name)

Dim bMoved As Boolean
Dim nCtr As Integer
Dim strTemp As String
Dim obj As Name
Do
   bMoved = False
   For nCtr = 0 To obj.ListCount - 2
       If obj.List(nCtr) > obj.List(nCtr + 1) And bAscending _
           Or obj.List(nCtr) < obj.List(nCtr + 1) And Not bAscending Then
           bMoved = True
           strTemp = obj.List(nCtr)
           obj.List(nCtr) = obj.List(nCtr + 1)
           obj.List(nCtr + 1) = strTemp
       End If
   Next
Loop Until bMoved = False
   
End Sub

Che richiamo con questo comando:

Call Sort(True, ComboOggetti.Name)

Ma vi viene restituito l'errore Type Mismatch...

Chi mi sa aiutare?

[Luciano79]

As Name?
Sicuro?

[Makemsis]

bravo è prprio quello il problema...
come dv dichiararlo?

[oregon]

Private Sub Sort(ByVal bAscending As Boolean, obj As Combobox)

 ' Dim obj As Name

Call Sort(True, ComboOggetti)