Filesystem Watcher All Drives?

See more:

VB

I have asked this question and do not mean to spam in any way to ask again but since then I have made an attempt to figure this thing out. To refresh my question I am looking to monitor all hard drives directories and sub directories with Filesystem watcher. Thus far i have this code which does not seem to monitor any drive

Imports System.IO
Public Class Form1
    Private _watchers As FileSystemWatcher()
    Private Sub OnStart(args As String())
        Dim drives As String() = Environment.GetLogicalDrives()
        _watchers = New FileSystemWatcher(drives.Length - 1) {}
        Dim i As Integer = 0
        For Each strDrive As String In drives
            'Check if the drive is ready to be used 
            Dim df As New DriveInfo(strDrive)
            If Not df.IsReady Then
                Continue For
            End If
            Dim _watcher As New FileSystemWatcher()
            _watcher.Path = strDrive
            AddHandler _watcher.Changed, AddressOf OnChanged
            AddHandler _watcher.Created, AddressOf OnChanged
            AddHandler _watcher.Deleted, AddressOf OnChanged
            AddHandler _watcher.Renamed, AddressOf OnRenamed
        Next
    End Sub
    Private Sub OnChanged(source As Object, e As FileSystemEventArgs)
        ' Specify what is done when a file is changed, created, or deleted.
        ListBox1.Items.Add("File: " & e.FullPath & " " & e.ChangeType)
    End Sub
    Private Sub OnRenamed(ByVal sender As Object, ByVal e As RenamedEventArgs)
        ' Specify what is done when a file is renamed.
        ListBox1.Items.Add("File: " & e.FullPath & " " & e.ChangeType)
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FolderWatcherTest.EnableRaisingEvents = True
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        FolderWatcherTest.EnableRaisingEvents = False
    End Sub
End Class

Some of this code has been converted from C# to vb.net
what do i need to correct or add to this to get the desired result?

thank you in advance!!