Array item kopieren, verplaatsen naar begin

[Spy1]

Ik wil graag een array item kopiëren en in de zelfde array dat item verplaatsen naar het begin.

De volgende code heb ik.

            WordsList.Add(WordsList.Item(result))
            ReplaceTo(WordsList.Last, 0, WordsList)

    Public Sub ReplaceTo(ByVal source As Integer, ByVal destination As Integer, ByVal sender As List(Of String))
        Dim TempSource As String = sender.Item(source)
        sender.RemoveAt(source)
        sender.Insert(destination, TempSource)
    End Sub

Hulp?

 

[Pizara]

Je zou gewoon je andere topic hebben kunnen gebruiken omdat daar ook de hele code nog stond. Maar ik denk dat je dit bedoelt :

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Coll As New MyArray

        Coll.Add("Piet")
        Coll.Add("Maikel")
        Coll.Add("Klaas")
        Coll.Add("Jan")
        Coll.Add("Mannes")

        Coll.CopyAndMoveTo(Coll.Last, 0)

    End Sub

    Public Class MyArray
        Inherits ArrayList

        Public Sub CopyAndMoveTo(ByVal source As Integer, ByVal destination As Integer)
            Dim TempSource As String = Me.Item(source)
            Me.Insert(destination, TempSource)
        End Sub

        Public Function Last() As Integer
            Return Me.Count - 1
        End Function

    End Class

End Class