Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        FileSystemWatcher1.Path = FolderBrowserDialog1.SelectedPath
        FileSystemWatcher1.NotifyFilter = NotifyFilters.LastWrite Or _
          NotifyFilters.Size
        FileSystemWatcher1.EnableRaisingEvents = True
    End Sub