Private Sub wmiFloppyInfo()
  Dim itmx As ListItem
  With ListView1
    .ListItems.Clear
    .ColumnHeaders.Clear
    .ColumnHeaders.Add , , "Available"
    .ColumnHeaders.Add , , "CM_Error Code"
    .ColumnHeaders.Add , , "CM_User Config"
    .ColumnHeaders.Add , , "Device ID"
    .ColumnHeaders.Add , , "Manufacturer"
    .ColumnHeaders.Add , , "Name"
    .ColumnHeaders.Add , , "PNP DeviceID"
    .View = lvwReport
    .Sorted = False
  End With
 
  Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                              InstancesOf("Win32_FloppyDrive")
  For Each obj In wmiObjSet
    Set itmx = ListView1.ListItems.Add(, , obj.Availability)
    itmx.SubItems(1) = obj.ConfigManagerErrorCode
    itmx.SubItems(2) = obj.ConfigManagerUserConfig
    itmx.SubItems(3) = obj.DeviceID
    itmx.SubItems(4) = obj.Manufacturer
    itmx.SubItems(5) = obj.Name
    itmx.SubItems(6) = obj.PNPDeviceID
  Next
 
  'Call lvAutosizeControl(ListView1)
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)