Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim nums As New ArrayList
 
        For i As Integer = 1 To CInt(TextBox3.Text)
            nums.Add(i)
        Next
 
        ListBox1.Items.Clear()
 
        For l As Integer = nums.Count - 1 To 0 Step -1
            Dim j As Integer = l * Rnd()
            ListBox1.Items.Add(nums(j).ToString())
            nums.RemoveAt(j)
        Next
    End Sub