Ciao a tutti, quando vado ad ordinare una listbox di solo numeri, mi da un ordinamento non corretto: ad es. tra 16 e 128 ordina prima 128 e poi 16...
Public Sub Ordina()
Dim I As Integer
Dim j As Integer
Dim iCount As Integer
Dim Temp As Integer
iCount =lst_Numeri.ListCount
For j = 0 To iCount - 2
For I = 0 To iCount - 2
With .lst_Numeri
If .List(I) > .List(I + 1) Then
Temp = .List(I + 1)
.List(I + 1) = .List(I)
.List(I) = Temp
End If
End With
Next I
Next j
End Sub