Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        Dim tn As TreeNode
 
        'Hier liegt aus meiner Sicht wohl bereits der Haseim Pfeffer...
        Dim diskClass As New ManagementClass("Win32_LogicalDisk") 
 
        Dim qc As ManagementObjectCollection = diskClass.GetInstances()
 
        Dim objectDrives As ManagementObject
 
        Dim mo As ManagementObject
 
        ' Für alle gefundenen Laufwerke
 
        For Each mo In qc
                  'Auslesen der benötigten Infos.....
                   Dim volID As String = mo.Properties("DeviceID" _
                     ).Value.ToString
                   Dim drTyp As Integer = Convert.ToInt32( mo.Properties( _
                   "DriveType").Value)
                  '..... u.s.w ... zzgl. Ausfüllen des Treeviews .... 
                  'aber hier ist der Fehler ja bereits gemacht
        next
 
End Sub