Below is how I add the drives to an explorer like TreeView.
What I don't know how to do is to add an Icon for MyComputer.
Any help would be appreciated.
Dim SysIconList% = WinApi.SHGetFileInfo(IntPtr.Zero, 0, SFI,
Marshal.SizeOf(SFI), Win32.Shell.SHGFI_SYSICONINDEX +
Win32.Shell.SHGFI_SMALLICON)
SendMessage(tvFolders.Handle, TVM_SETIMAGELIST, 0, SysIconList)
Dim MyComputerNode As TreeNode = tvFolders.Nodes.Add(mMY_COMPUTER)
'MyComputerNode.ImageIndex = ?????
For Each Drive As String In Directory.GetLogicalDrives() 'Add Logical Drives
into TreeView
winapi.SHGetFileInfo(Drive, 0, mSHI, mSHISize, Win32.Shell.SHGFI_ICON)
Dim Subnode As TreeNode = MyComputerNode.Nodes.Add(Split(Drive, "\")(0))
Subnode.ImageIndex = mSHI.iIcon
Next