[RESOLVED] Listview and Drive Icon

[afdoal]

hi... vb forumers...

i used this code for show drive:

Dim fso, a, DriveX, B
Dim lstItm As ListItem
Dim aneh As New FileSystemObject

Sub ShowDrive()
    Set B = aneh.Drives   
    lstHDD.ListItems.Clear
    For Each DriveX In B
        If DriveX.DriveType = 2 Or DriveX.DriveType = 3 Then  'tell appart hdd
            With lstHDD
                Set lstItm = .ListItems.Add(, , DriveX.Path & ":\" & DriveX.VolumeName)               
            End With
        End If
    Next
End Sub

and my question, how to get the drive icon and add this on on listview??

this preview of my listview

thanks b4