## Sorting?

So basicly the solution is: If you need code, take the following code and adjust it to your datatype:

Sub QuickSort(list() as integer, lo as integer,hi as integer) #pragma disablebackgroundtasks dim i,j as integer dim x as integer dim y as integer i=lo j=hi x=list((lo+hi)/2) while (i<=j) while list(i)x j=j-1 wend if i<=j then // swap values y=list(i) list(i)=list(j) list(j)=y i=i+1 j=j-1 end if wend if lo < j then QuickSort list,lo,j end if if i < hi then QuickSort list,i,hi end if End Sub Sub Open() // some test code: dim list(-1) as integer for i as integer = 1 to 10 List.Append rnd*100 next 'for i as integer = 0 to UBound(List) ' Listbox1.AddRow str(List(i)) 'next QuickSort list, 0, UBound(List) for i as integer = 0 to UBound(List) Listbox1.AddRow str(List(i)) next End Sub