Private Sub shellsort()
Dim abst As Integer
Dim a As Integer
Dim x As Integer
Dim i As Integer
 
abst = lst_ani_1.ListCount
Do Until abst > 1
abst = abst \ 2
a = 0
Do Until a = 1
a = 1
For i = 1 To lst_ani_1.ListCount - abst
If arr_ani_sort(i) > arr_ani_sort(i + abst) Then
x = arr_ani_sort(i)
arr_ani_sort(i) = arr_ani_sort(i + abst)
arr_ani_sort(i + abst) = x
a = 0
End If
Next i
Loop
Loop
End Sub