Pytanie Losowanie ze spisu

Public Class Form1    Dim w As Integer = 1        Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click        Do Until w = 10            ListBox1.Items.Add(w)            w = w + 1        Loop    End Sub    Dim r As New Random    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        TextBox1.Text = ListBox1.GetItemText(ListBox1.Items(r.Next(0, ListBox1.Items.Count)))    End SubEnd Class

Dajesz 2 buttony na forme i 1 listbox , textbox.

Button1 - nazywasz losuj

Button2 - nazywasz dodaj

wklejasz kod taki jak napisałem , po naciśnięciu buttona losuj do listboxa dodają się liczby 1,2,3,4,5,6,7,8,9.

Po naciśnięciu button dodaj z listboxa losowana jest byle jaka linia i wklejana jest do texboxa. Jak coś to zacytuj mnie w tym temacie to pomoge.