gerät nicht bereit win 7

Imports System.IO

Public Class Form1

Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
Close()
End Sub

Private Sub ToolbarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolbarToolStripMenuItem.Click
ToolStrip1.Visible = Not ToolStrip1.Visible
ToolbarToolStripMenuItem.Checked = ToolStrip1.Visible
End Sub

Private Sub StatusleisteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusleisteToolStripMenuItem.Click
StatusStrip1.Visible = Not StatusStrip1.Visible
StatusleisteToolStripMenuItem.Checked = StatusStrip1.Visible
End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

End Sub

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)

End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim drives = DriveInfo.GetDrives()
For Each drive As DriveInfo In drives
Dim node = TreeView1.Nodes.Add(drive.Name)
Fillnode(node, drive.RootDirectory)
Next
End Sub

Private Sub Fillnode(ByVal node As TreeNode, ByVal directory As DirectoryInfo)
Dim Directories = directory.GetDirectories()
For Each subdirectory As DirectoryInfo In Directories
node.Nodes.Add(subdirectory.Name)

Next
End Sub

End Class

das ist der komplette quellcode in dem rotmakierten bereich zeigt er mir ein fehler an das das gerät nicht bereit wär ... ich habe alles schon überprüft es passt alles oder ich sehe den wald vorlauter bäumen net