' Zusammensetzen der Einträge in einen langen String
Dim AllText As String = ""
For Each Item As String In formMain.acsc
  If AllText.Length > 0 Then AllText &= vbTab
  AllText &= formMain.acsc(i)
Next 
Settings1.default.AutoComplete = AllText

Dim AllText As String = My.Settings.AutoComplete
If AllText.Length > 0 Then
  acsc.AddRange(Split(AllText, vbTab))
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de