Private Sub sortieren(ByVal wo As Integer, Optional ByVal datum As Boolean = _
   False, Optional ByVal aufsteigend As Boolean = False)
        For x As Integer = 0 To ListView1.Items.Count - 2
            If datum = True Then
                If (Date.Parse(ListView1.Items(x).SubItems(wo).Text) > _
                  Date.Parse(ListView1.Items(x + 1).SubItems(wo).Text) And _
                  aufsteigend = True) Or (Date.Parse(ListView1.Items( _
                  x).SubItems(wo).Text) < Date.Parse(ListView1.Items(x + _
                  1).SubItems(wo).Text) And aufsteigend = False) Then
                    Dim liwi As Windows.Forms.ListViewItem = ListView1.Items( _
                    x).Clone
                    ListView1.Items(x) = ListView1.Items(x + 1).Clone
                    ListView1.Items(x + 1) = liwi
                    x = -1
                End If
            ElseIf datum = False Then
                If (ListView1.Items(x).SubItems(wo).Text.ToUpper > _
                  ListView1.Items(x + 1).SubItems(wo).Text.ToUpper And _
                  aufsteigend = True) Or (ListView1.Items(x).SubItems( _
                  wo).Text.ToUpper < ListView1.Items(x + 1).SubItems( _
                  wo).Text.ToUpper And aufsteigend = False) Then
                    Dim liwi As Windows.Forms.ListViewItem = ListView1.Items(x)
                    ListView1.Items(x) = ListView1.Items(x + 1).Clone
                    ListView1.Items(x + 1) = liwi
                    x = -1
                End If
            End If
        Next
    End Sub

__________________________________
irgendwas wird schon rauskommen^^