Randomize 'shuffle' Listbox Items on button click (winform) vb.2003

Hi Experts,

I've been tearing my hair out trying to achieve what is probably a simple task. All's I want to do is click a button and change the order of items in a Listbox. this must loop on button click (i.e. if the button clicks again, it shuffles)

I have come across many examples and have tried them all... they all seem to do slightly different tasks, but not want i want :(

Can someone please help?

' I tried this one to start. It seems to move the listbox item out of the Listbox and move it to a Textbox
  
  Private R As New Random

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.Items.Count > 0 Then
            Dim index As Integer = R.Next(0, ListBox1.Items.Count)
            TextBox1.Text = ListBox1.Items(index)
            ListBox1.Items.RemoveAt(index)
        End If
        If ListBox1.Items.Count = 0 Then
            Button1.Enabled = False
        End If
    End Sub

' Then I tried thie code which changes the order of the highlight - not the actual items :(

Dim listcount As Integer = ListBox1.Items.Count
        Dim index As Integer
        Dim temp As Object
        Dim r As New Random

        ListBox1.BeginUpdate()
        For i As Integer = 0 To listcount - 1
            index = r.Next(0, listcount)
            temp = ListBox1.Items(i)
            ListBox1.Items(i) = ListBox1.Items(index)
            ListBox1.Items(index) = temp
        Next
        ListBox1.EndUpdate()

Select all Open in new window