Adding folders to a combo box

Dim folders As New List(Of Schema.Class.folderObj)

folders = EditorialLogin.Get.GetFolders()

For Each f As Schema.Class.folderObj In folders

  m_FolderCB.Items.Add(New IdName(f.idAttr, f.pathAttr))

Next

m_FolderCB.SelectedIndex = SystemUserOptions.ADS_Folder