Private Sub moveItem(Of T)(ByVal l As List(Of T), ByVal fromIndex As _
      Integer, ByVal toIndex As Integer)
        Dim temp As T
        temp = l(fromIndex)
        l.RemoveAt(fromIndex)
        l.Insert(toIndex, temp)
    End Sub
 
    Private Sub Test()
        Dim l As New List(Of String)
 
        l.Add("string3")
        l.Insert(0, "string1")
        l.Insert(1, "string2")
 
        l.Add("string0")
 
        moveItem(l, 3, 0)
 
        For Each s As String In l
            Debug.WriteLine(s)
        Next
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist