''' <summary>
''' ItemMove(True/False)
''' Eintrag nach oben oder unten verschieben
''' </summary>
''' <param name="up"></param>
''' true = Eintrag nach oben verschieben
''' false= Eintrag nach unten verschieben
''' <remarks></remarks>

Sub ItemMove(ByVal up As Boolean)
  With ListBox1
    If .SelectedIndex = -1 Then
      MessageBox.Show("Bitte zuerst einen Eintrag markieren!", _
          "Markieren", MessageBoxButtons.OK, _
          MessageBoxIcon.Information)
      Exit Sub
    End If

    'Den ausgewählten Eintrag und seinen Index festhalten
    Dim sItem As Object = .SelectedItem
    Dim sIndex As Integer = .SelectedIndex

    If up = False Then
      If sIndex = 0 Then Exit Sub
      '1 nach unten verschieben
      .Items.Item(sIndex) = .Items.Item(sIndex - 1)
      .Items.Item(sIndex - 1) = sItem
      .SelectedIndex = sIndex - 1
    Else
      If sIndex = (.Items.Count - 1) Then Exit Sub
      '1 nach oben verschieben
      .Items.Item(sIndex) = .Items.Item(sIndex + 1)
      .Items.Item(sIndex + 1) = sItem
      .SelectedIndex = sIndex + 1
    End If
  End With
End Sub