Private Sub butCreat_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles butCreat.Click
        Dim ar As New ArrayList()
        Dim l As Int32
        Dim max As Int32 = Convert.ToInt32(Me.txtAnzahl.Text)
        Const toNum As Integer = 20000
        Me.ProgressBar1.Value = 0
        Me.ProgressBar1.Maximum = max
        Me.ProgressBar1.Step = 1
        Randomize()
        If max > toNum Then
            MsgBox("Achtung: Die Zahl ist zu groß!")
            Exit Sub
        End If
        Do Until ar.Count = max
            l = toNum * Rnd() + 1
            If Not ar.Contains(l) Then
                ar.Add(l)
                Me.ProgressBar1.PerformStep()
            End If
        Loop
        Me.listBox.Items.Clear()
        Dim o As Object
        For Each o In ar
            Me.listBox.Items.Add(o.ToString)
        Next
 
        If IsNumeric(txtAnzahl.Text) = False Then
            MsgBox("Bitte nur Zahlen eingeben! ")
            Exit Sub
        End If
 
    End Sub
 
    Private Sub BubbleSort(ByRef sArr() As String, ByVal lMin&, ByVal lMax&)
 
        On Error GoTo Err_BubbleSort
        Dim i&, sTemp$, lMaxItem&, lSwapItem&
        lSwapItem = lMax
        Do While CBool(lSwapItem > 0)
            lMaxItem = lSwapItem - 1 : lSwapItem = 0
            For i = lMin To lMaxItem
                sTemp = sArr(i)
                If StrComp(sTemp, sArr(i + 1), vbTextCompare) Then
                    sArr(i) = sArr(i + 1)
                    sArr(i + 1) = sTemp
                    lSwapItem = i
                End If
            Next
        Loop
 
Err_BubbleSort:
        On Error GoTo 0
    End Sub
 
    Private Sub butSort_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butSort.Click
        If optBubble.Checked Then
            Call BubbleSort()
        ElseIf optShell.Checked Then
            MsgBox("Leider nicht verfügbar")
        ElseIf optHeap.Checked Then
            MsgBox("Leider nicht verfügbar")
        ElseIf optQuick.Checked Then
            MsgBox("Leider nicht verfügbar")
        End If
    End Sub