Private Sub FileSystemWatcher1_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
Select Case e.ChangeType
Case IO.WatcherChangeTypes.Created
MsgBox("Created")
Case Else
MsgBox("Other ChangeType")
End Select
End Sub