[VB6, twinBASIC] ucDriveCombo - A modern DriveList replacement

[fafalone]

You also have to add the SHGFI_ICON flag for .hIcon to be set.

[cliv]

Put that into the PICTDESC

You also have to add the SHGFI_ICON flag for .hIcon to be set.

i try ..

Public Sub RefreshDriveList()
        IID_IPicture = &H7BF80980

	Dim diskIcon As StdPicture
	Dim dPict As PICTDESC
	dPict.Size = Len(dPict)
	dPict.Type = vbPicTypeIcon
	
	...
		mDrives(mCt).Name = sName
		mDrives(mCt).nIcon = GetIconIndex(sDrives(i), SHGFI_SMALLICON)
		
              dPict .hBmpOrIcon = mDrives(mCt).nIcon
              Call OleCreatePictureIndirect(dPict, IID_IPicture  , True, diskIcon)
              
             Picture1.Picture = diskIcon
	...
End sub

... but not work