Capitalize Drivelistbox

Hello!
Well, AFAIK, there is no inherent way to do this with the drivelistbox. I'd give a suggestion to use an ImageCombo ( a component which you can add to the toolbox. It is basically a combobox, which can show images as well ), then use a certain means ( for example the FileSystemObject, or even API ) to load all the available disk names into that ImageCombo.
Just a suggestion..

Yeah, that's right. The List() property of the DriveListBox is write protected.

You could use an invisible DriveListBox and copy the items to a normal ListBox (or an image combo like Hannes suggested) which is visible instead.

There you could go

Private Sub CopyDriveListToCombo()
Dim i%, a$
Combo1.Clear
For i = 0 To Drive1.ListCount - 1
a$ = Drive1.List(i)
Mid$(a$, 1, 1) = UCase(Mid$(a$, 1, 1))
Combo1.AddItem a$
Next
Combo1.ListIndex = Drive1.ListIndex
End Sub

If you want images, you'd have to look for an image combo control in the web.

swizzapizza, I've worked something out for you.
Basically it explorers WoF's and my comments about the ImageCombo component. It works, and does everything you need, but, I am going to give you some keypoints you will need to study up on, because you need to "learn how to fish" ( as the saying goes ) as well ..

Study these :
ImageCombo (http://support.microsoft.com/kb/q186896/)
ImageList (http://www.developerfusion.co.uk/show/13/)
Arrays (http://searchwarp.com/swa258112.htm)

EDIT :
Just as a side note, in the ImageList, I've only provided three images ( hard disk, Stiffy drive, Cd drive ), it's logical that you'd need to include more images for more drives.