Private Sub lstListe_SelectedIndexChanged(ByVal sender As Object, ByVal e _
      As System.EventArgs) Handles lstListe.SelectedIndexChanged
        Dim intPosLetzte As Integer
        'Wenn der letzte Eintrag in der Listbox ausgewählt wurde den nach oben 
        ' Button deaktivieren
        If Me.lstListe.SelectedItems.Count > 0 Then
            If Me.lstListe.Items.IndexOf(Me.lstListe.SelectedItem) = 0 Then
                Me.butnachoben.Enabled = False
            Else
                Me.butnachoben.Enabled = True
            End If
        End If
        'Wenn der letzte Eintrag in der Listbox ausgewählt wurde den nach unten 
        ' Button deaktivieren
        intPosLetzte = lstListe.Items.IndexOf(lstListe.SelectedItems( _
          lstListe.SelectedItems.Count - 1))
        If intPosLetzte = lstListe.Items.Count - 1 Then
            butnachunten.Enabled = False
        Else
            butnachunten.Enabled = True
        End If
    End Sub
 
    Private Sub butnachoben_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butnachoben.Click
        'Den / Die ausgewählten Einträge in der Listbox um eine Postion nach 
        ' oben schieben, solange der erste Eintrag nicht makiert wurde
        Dim intPos As Integer
        Dim objEintrag As Object
        Dim intZähler As Integer
        objEintrag = Me.lstListe.SelectedItem
        intPos = Me.lstListe.SelectedIndex
        For intZähler = 0 To Me.lstListe.SelectedItems.Count - 1
            objEintrag = Me.lstListe.SelectedItem
            intPos = Me.lstListe.Items.IndexOf(Me.lstListe.SelectedItem)
            Me.lstListe.Items.Remove(objEintrag)
            Me.lstListe.Items.Insert(intPos - 1, objEintrag)
        Next
    End Sub
 
    Private Sub butnachunten_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butnachunten.Click
        'Den / Die ausgewählten Einträge in der Listbox um eine Postion nach 
        ' unten schieben, solange der letzte Eintrag nicht makiert wurde
        Dim intPos As Integer
        Dim objEintrag As Object
        Dim intZähler As Integer
        objEintrag = Me.lstListe.SelectedItem
        intPos = Me.lstListe.SelectedIndex
        For intZähler = 0 To Me.lstListe.SelectedItems.Count - 1
            objEintrag = Me.lstListe.SelectedItem
            intPos = Me.lstListe.Items.IndexOf(Me.lstListe.SelectedItem)
            Me.lstListe.Items.Remove(objEintrag)
            Me.lstListe.Items.Insert(intPos + 1, objEintrag)
        Next
    End Sub