Public Sub Modul1()
AddHandler Watch.Created, AddressOf Watch_Created
 
Try
Watch.Path = txtMonitorPath.Text
Watch.Filter = "*.*"
Watch.IncludeSubdirectories = True
Watch.EnableRaisingEvents = True
Catch Err As Exception
MessageBox.Show(Err.Message)
End Try
End Sub