Please help me figure out how to sort this array list in a random sort.

Thanks

Code:
        Private Sub BindBanners()
            Dim ar As New ArrayList
            Dim path As String = "images/banners/"

            Dim item As New Telerik.WebControls.RotatorDataItem
            item("BannerLocation") = path & "home.jpg"
            ar.Add(item)

            Dim item1 As New Telerik.WebControls.RotatorDataItem
            item1("BannerLocation") = path & "about.jpg"
            ar.Add(item1)

            Dim item2 As New Telerik.WebControls.RotatorDataItem
            item2("BannerLocation") = path & "contact.jpg"
            ar.Add(item2)

            Dim item3 As New Telerik.WebControls.RotatorDataItem
            item3("BannerLocation") = path & "links.jpg"
            ar.Add(item3)

            Dim item4 As New Telerik.WebControls.RotatorDataItem
            item4("BannerLocation") = path & "news.jpg"
            ar.Add(item4)

            Dim item5 As New Telerik.WebControls.RotatorDataItem
            item5("BannerLocation") = path & "service.jpg"
            ar.Add(item5)

            Dim item6 As New Telerik.WebControls.RotatorDataItem
            item6("BannerLocation") = path & "gallery.jpg"
            ar.Add(item6)

            Dim item7 As New Telerik.WebControls.RotatorDataItem
            item7("BannerLocation") = path & "gallery2.jpg"
            ar.Add(item7)

            'Generate random value
            Randomize()
            Dim MyValue As Integer = CInt(Int((ar.Count * Rnd()) + 1))
            ar.Sort(MyValue, ar.Count - 1, Nothing)

            RadRotator1.DataSource = ar
            RadRotator1.DataBind()
        End Sub 'BindBanners