#Region " ListView "
    '
    ' Make a ListView row.
    Private Sub ListViewMakeRow(ByVal ListViewObject As _
      System.windows.Forms.ListView, _
                                ByVal Item_Title As String, _
                                ByVal ParamArray SubItem_Titles() As String)
        '
        ' Make the item.
        Dim New_Item As ListViewItem = ListViewObject.Items.Add(Item_Title)
        '
        ' Make the sub-items.
        For I As Integer = SubItem_Titles.GetLowerBound(0) To _
          SubItem_Titles.GetUpperBound(0)
            '
            New_Item.SubItems.Add(SubItem_Titles(I))
            '
        Next I
        '
    End Sub
    '
    Private Sub RaidAdd_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles RaidAdd.Click
        If RaidNameC.Text = "" Or RaidKoordsC.Text = "" Then
            Exit Sub
        End If
        Dim I As Integer
        I = Module_INI.IniReadString("Raidliste", "I", "0", "4", _
          Module_INI.INIFile)
        I += 1
        Module_INI.IniWriteString("Raidliste", "RaidName_" & I, RaidNameC.Text, _
          Module_INI.INIFile)
        Module_INI.IniWriteString("Raidliste", "RaidKoords_" & I, _
        RaidKoordsC.Text, Module_INI.INIFile)
        Module_INI.IniWriteString("Raidliste", "RaidClass_" & I, _
        RaidClassC.Text, Module_INI.INIFile)
        Module_INI.IniWriteString("Raidliste", "I", I, Module_INI.INIFile)
        '
        Raidliste1.BeginUpdate()
        Dim TempArray(2) As String
        TempArray(0) = RaidNameC.Text
        TempArray(1) = RaidKoordsC.Text
        TempArray(2) = RaidClassC.Text
        ListViewMakeRow(Raidliste1, I, TempArray)
        Raidliste1.EndUpdate()
    End Sub
    '
    Private Sub RaidRemove_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles RaidRemove.Click
 
        Dim I As Integer
        For Each Item As System.Windows.Forms.ListViewItem In Raidliste1.Items
            If Item.Checked Then
                I = CInt(Item.SubItems(0).Text)
                Module_INI.IniDeleteString("Raidliste", "RaidName_" & I, _
                  Module_INI.INIFile)
                Module_INI.IniDeleteString("Raidliste", "RaidKoords_" & I, _
                Module_INI.INIFile)
                Module_INI.IniDeleteString("Raidliste", "RaidClass_" & I, _
                Module_INI.INIFile)
                '
                Item.Remove()
            End If
        Next
    End Sub
    '
#End Region
 ' 
#Region " sorting "
    Dim cCol As Integer = -1
 
    Private Sub Raidliste1_ColumnClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ColumnClickEventArgs) Handles Raidliste1.ColumnClick
        Raidliste1.BeginUpdate()
 
        If cCol = e.Column Then
            If Raidliste1.Sorting = SortOrder.Descending Then
                Raidliste1.Sorting = System.Windows.Forms.SortOrder.Ascending
            Else
                Raidliste1.Sorting = System.Windows.Forms.SortOrder.Descending
            End If
        Else
            Raidliste1.Sorting = System.Windows.Forms.SortOrder.Ascending
        End If
        cCol = e.Column
        Raidliste1.ListViewItemSorter = New ListView_Sort(e.Column)
 
        Raidliste1.EndUpdate()
    End Sub
#End Region