Public Class Form1
 
    Dim arr(10) As Integer
    Dim i As Integer = 0
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        arr(0) = 6
        arr(1) = 9
        arr(2) = 7
        arr(3) = 5
        arr(4) = 1
        arr(5) = 3
        arr(6) = 4
        arr(7) = 2
        arr(8) = 8
        arr(9) = 0
 
        For i = 0 To 9
            lstOriginal.Items.Add(arr(i))
        Next
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        System.Array.Sort(arr)
 
        For i = 1 To 10
            lstSortiert.Items.Add(arr(i))
        Next
 
    End Sub
End Class

EALA FREYA FRESENA