ComboBox и установка директории

Imports System.IO
Imports System.ComponentModel
Imports System.Runtime.InteropServices 
 
'С помощью этой структуры мы будем получать интересующую нас информацию.
   
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _  'указываем ,что нам нужно последовательное расположение полей в структурах и упаковка по границе байтов.
   Public Structure SHFILEINFO
      Public hIcon As IntPtr   'манипулятор иконки асоциирующийся с типом устройства
      Public iIcon As Integer  'под каким индексом она находится в DLL
      Public dwAttributes As Integer
      <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _  'указываем максимальный размер строки(буффер)
      Public szDisplayName As String  'название устройства
      <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _  'указываем максимальный размер строки(буффер)
      Public szTypeName As String  'тип устройства
   End Structure

   Public Enum ShellFileInfoFlags
      SHGFI_ICON = &H100
      SHGFI_DISPLAYNAME = &H200
      SHGFI_TYPENAME = &H400
      SHGFI_ATTRIBUTES = &H800
      SHGFI_ICONLOCATION = &H1000
      SHGFI_EXETYPE = &H2000
      SHGFI_SYSICONINDEX = &H4000
      SHGFI_LINKOVERLAY = &H8000
      SHGFI_SELECTED = &H10000
      SHGFI_ATTR_SPECIFIED = &H20000
      SHGFI_LARGEICON = &H0
      SHGFI_SMALLICON = &H1
      SHGFI_OPENICON = &H2
      SHGFI_SHELLICONSIZE = &H4
      SHGFI_PIDL = &H8
      SHGFI_USEFILEATTRIBUTES = &H10
   End Enum

   Declare Auto Function SHGetFileInfo Lib 'Shell32' (ByVal DrivePath As String, ByVal fileAttributes As Integer, ByRef FileInfo As SHFILEINFO, ByVal countBytesFileInfo As Integer, ByVal flags As Integer) As Integer

   Private Sub InitAllDrives()
      Dim AllDrives(), tStr As String, SF As SHFILEINFO, i As IntPtr
      AllDrives = IO.Directory.GetLogicalDrives  'получаем все существующие диски A: C: D: и т.д
      For each tStr In AllDrives
         SHGetFileInfo(tStr, 0, SF, Marshal.SizeOf(GetType(SHFILEINFO)), _ 'получаем размер структуры НЕ ИСПОЛЬЗУЙТЕ для вычисления структуры оператор LEN т.к в более сложных структурах даёт не верные результаты
         ShellFileInfoFlags.SHGFI_SYSICONINDEX Or  ShellFileInfoFlags.SHGFI_SMALLICON Or _
         ShellFileInfoFlags.SHGFI_DISPLAYNAME Or ShellFileInfoFlags.SHGFI_ICON or SHGFI_TYPENAME)  'описываем какой вид информации мы предпологаем получить через структуру SHFILEINFO , если Вы попытаетесь обратица к полям этой структуры для которых не было описанно с помощью констант SHGFI_ на  получение соответствующеи информации, то в cлуче со String получим пустую строка ,а при обращении к манипулятору ошибку
 
         'Dim g As Graphics = Me.Creategraphics
         g.DrawIcon(Icon.FromHandle(SF.hIcon), 0, 0)  'иконку можно получить так
         ' ну а текстовую информацию получаете как обычно
        Next
    End Sub

   Public Enum ShellFolders
      CSIDL_DESKTOP = &H0