TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
        TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
 
        For Each sFile As String In IO.Directory.GetFiles(sPath, "*.ddm")
            TextBox1.AutoCompleteCustomSource.Add( _
              IO.Path.GetFileNameWithoutExtension(sFile))
        Next

            Dim sPath As String = "C:\meinesoftware\wachplan\mitglieder\"
            TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
            TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
 
            For Each sFile As String In IO.Directory.GetFiles(sPath, "*.ddm")
                TextBox1.AutoCompleteCustomSource.Add( _
                  IO.Path.GetFileNameWithoutExtension(sFile))
            Next

            For Each sFile As String In IO.Directory.GetFiles(sPath, "*.ddm*")

            For Each sFile As String In IO.Directory.GetFiles(sPath, "*.ddm")

Public Class eintragen
 
 
    Private Sub eintragen_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If WertLesen(My.Settings.Config, "Initialisierung", "EinAustragen") = _
        "True" Then
            If freischaltung1 = False Then
                Me.Close()
                freischalten.Show()
            Else
 
            End If
            Dim sPath As String = "C:\einsatzsoftware\wachplan\mitglieder\"
            TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
            TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
 
            For Each sFile As String In IO.Directory.GetFiles(sPath, "*.ddm*")
                TextBox1.AutoCompleteCustomSource.Add( _
                  IO.Path.GetFileNameWithoutExtension(sFile))
            Next
        End If
    End Sub