Private Sub cmbCity_Enter(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles cmbCity.Enter
 
        Dim strPath As String
        strPath = clsFolder.CorrectFolderPath(objConfig.RootPath, objLog)
 
        UpdateComboBox(strPath, cmbCity)
 
    End Sub
 
   Private Sub UpdateComboBox(ByVal Path As String, ByVal ComboBox As ComboBox)
 
        Try
            Dim arrSubFolders As New ArrayList
            Dim strComboboxText As String
 
            'Save  actual content to hold the value during the list update
            strComboboxText = ComboBox.Text
 
            Windows.Forms.Cursor.Current = Windows.Forms.Cursors.WaitCursor
 
            Path = clsFolder.CorrectFolderPath(Path)
            clsFolder.GetSubFolders(Path, arrSubFolders)
 
            With ComboBox
                .DataSource = arrSubFolders
 
                .AutoCompleteSource = AutoCompleteSource.ListItems
                .AutoCompleteMode = AutoCompleteMode.Append
            End With
 
            'Return the saved content after list is updated
            ComboBox.Text = strComboboxText
 
 
            Windows.Forms.Cursor.Current = Windows.Forms.Cursors.Default
 
        Catch ex As Exception
 
            MessageBox.Show(ex.Message, "Unerwarteter Fehler", _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        Finally
 
            Windows.Forms.Cursor.Current = Windows.Forms.Cursors.Default
 
        End Try
 
    End Sub