Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
Form1.Show
SortListBox("ListBox1")
End Sub
Sub SortListBox(List)
ArrayList1.Clear
For i = 0 To Control(List,ListBox).Count-1
ArrayList1.Add(Control(List,ListBox).Item(i))
Next
ArrayList1.Sort(cNumbers)
Control(List,ListBox).Clear
For i = 0 To ArrayList1.Count-1
Control(List,ListBox).Add(ArrayList1.Item(i))
Next
End Sub