Public Class frmAddFileFolder
    Inherits System.Windows.Forms.Form
Private Sub frmAddFileFolder_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
 
    End Sub

Public Class Watcher
    Friend Shared oFrm As Form
    Friend Shared oFSW As New System.IO.FileSystemWatcher
    Private Shared sPath As String = "C:\XML"
 
    Shared Sub Main()
        oFrm = New frmAddFileFolder
        oFrm.Text = "Running Form"
 
        With oFSW
            .BeginInit()
            .Path = sPath
            .IncludeSubdirectories = False
            .NotifyFilter = IO.NotifyFilters.DirectoryName
 
            ' Add event handlers.
            AddHandler .Changed, AddressOf OnChanged
            AddHandler .Created, AddressOf OnCreated
            AddHandler .Deleted, AddressOf OnChanged
            AddHandler .Renamed, AddressOf OnRenamed
 
            ' Begin watching.
            .EnableRaisingEvents = True
            ' End watching
            .EndInit()
        End With
    End Sub