VB.NET KOmmando wird mehrfach ausgeführt (FileSystemWatcher)

  Dim PFAD As String = TextBox5.Text

                ' --- Instanziierung  
                Dim watcher As New FileSystemWatcher()
                watcher.Path = PFAD
                watcher.Filter = "*.ini"  
                watcher.IncludeSubdirectories = True

                watcher.NotifyFilter =
                 NotifyFilters.Attributes Or
                 NotifyFilters.LastAccess Or
                 NotifyFilters.LastWrite Or
                 NotifyFilters.Security Or
                 NotifyFilters.Size Or
                 NotifyFilters.FileName Or
                 NotifyFilters.DirectoryName

                AddHandler watcher.Changed,
                 AddressOf DS_aenderung
                AddHandler watcher.Created, AddressOf DS_neu
                AddHandler watcher.Deleted,
                 AddressOf DS_loeschen
                AddHandler watcher.Renamed, AddressOf DS_name

        watcher.EnableRaisingEvents = True

   Public Sub DS_neu(ByVal source As Object,
    ByVal e As FileSystemEventArgs)

                Dim sb As StringBuilder = New StringBuilder(1024)

        INI.Lesen("Settings", "ShowMSG", "", sb, sb.Capacity, e.FullPath)  
        If sb.ToString = "True" Then  

            Try
                INI.Lesen("Notification", "Subject", "", sb, sb.Capacity, e.FullPath.Replace(".txt", ".ini"))  
                Me.Invoke(Sub() TextBox3.Text = sb.ToString)
                INI.Lesen("Picture", "NotPic", "", sb, sb.Capacity, e.FullPath.Replace(".txt", ".ini"))  
                If sb.ToString = "Notification" Then  
                    Me.Invoke(Sub() PictureBox1.Enabled = True)
                    Me.Invoke(Sub() PictureBox1.Image = My.Resources.blue_ico)
                ElseIf sb.ToString = "Error" Then  
                    Me.Invoke(Sub() PictureBox1.Enabled = True)
                    Me.Invoke(Sub() PictureBox1.Image = My.Resources.red_ico)
                ElseIf sb.ToString = "Warning" Then  
                    Me.Invoke(Sub() PictureBox1.Enabled = True)
                    Me.Invoke(Sub() PictureBox1.Image = My.Resources.yellow_ico)
                End If
                Threading.Thread.Sleep(25)
                Me.Invoke(Sub() TextBox2.Text = System.IO.File.ReadAllText(e.FullPath.Replace(".ini", ".txt")))  

'Hier öffnet die versteckte Form  
  Me.Invoke(Sub() Me.Show())

            Catch
            End Try
        End If


    End Sub