VB Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim items() As String = {"Item 1", "Item 2", "Item 3", "Item 4", "Item 5"}
items = ShuffleArray(items)
End Sub
Private Function ShuffleArray(ByVal obj() As Object) As Object()
Dim Temp As Object
Dim randomNum As Integer
Dim i As Integer
For i = 0 To obj.Length - 1
randomNum = New System.Random().Next(1, obj.Length - 1)
Temp = obj(i)
obj(i) = obj(randomNum)
obj(randomNum) = Temp
Next
ShuffleArray = obj
End Function