Dim MyString() As String = New String() {"s", "u", "p", "e", "r", "m", "a", "n"}
Array.Sort(MyString)
Dim i As Integer
'น้อยไปหามาก
For i = 0 To MyString.Length - 1
Dim MyLabel As Label = New Label()
MyLabel.Text = MyString(i)
Me.Controls.Add(MyLabel)
Next
'มากไปหาน้อย
For i = MyString.Length - 1 To 0 Step -1
Dim MyLabel As Label = New Label()
MyLabel.Text = MyString(i)
Me.Controls.Add(MyLabel)
Next