'// Löschen der Section (Spalte) in der INI-Datei
            If INIDelete(txtFile.Text.ToString, _
              lstboxSpalten.SelectedItem.ToString()) = True Then
 
                'Eintrag in der Listbox löschen
                Dim i As Integer
                Dim sText As String
 
                ' der Variable sText Inhalt der TextBox zuweisen
                sText = lstboxSpalten.SelectedItem.ToString()
                ' ListBox durchsuchen und ...
                For i = 0 To lstboxSpalten.Items.Count - 1
                    If lstboxSpalten.Items(i) = sText Then
                        ' ... falls gefunden Eintrag löschen
                        lstboxSpalten.Items.RemoveAt(i)
                        Exit For
                    End If
                Next i
                lstboxSpalten.Refresh()
                lstboxSpalten.SelectedIndex = 0
 
            Else
                MessageBox.Show("Fehler beim Löschen!!")
            End If