Private Sub MoveDown(ByRef vListBox As ListBox, ByVal iIndex As Integer)
 
  Dim sText As String
  If iIndex >= vListBox.ListCount - 1 Then
    ' ist schon letzter Eintrag
  Else
    sText = vListBox.List(iIndex)
    vListBox.RemoveItem iIndex
    vListBox.AddItem sText, iIndex + 1
  End If
End Sub

MoveDown List1, 4

Private Sub RenameItem(ByRef vListBox As ListBox, ByVal iIndex As Integer, _
  ByVal sNewText As String)
 
  If iIndex >= vListBox.ListIndex Then
    ' dieser Eintrag existiert überhaupt nicht
  Else
    vListBox.RemoveItem iIndex
    vListBox.AddItem sNewText, iIndex
  End If
End Sub

RenameItem List1, 10, "Neuer Name"

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.