список имеет атрибут SORTED, по умолчанию FALSE. Сделайте это правдой, и предметы будут заказаны на содержимое
'l
'
Me.l.FormattingEnabled = True
Me.l.Location = New System.Drawing.Point(112, 163)
Me.l.Name = "l"
Me.l.Size = New System.Drawing.Size(211, 56)
Me.l.Sorted = True
Me.l.TabIndex = 1
где l - ListBox