'Auf Updates prüfen
        Dim path As String
        path = My.Application.Info.DirectoryPath & "\updates\update-true.ini"
 
        'Updateinfos laden
        Try
            httpClient = New WebClient
            URL = "<Link zum FTP Server (aus Sicherheitsgründen will ich ihn" & _
              "hier nicht nennen)>"
            Me.Show()
 
            Application.DoEvents()
            httpClient.DownloadFileAsync(New Uri(URL), path)
            Application.DoEvents()
 
        Catch ex As Exception
            MsgBox("Fehler !" & vbNewLine & ex.ToString)
            End
        End Try
 
        Application.DoEvents()
 
        Dim Config As New IniFileManager.IniFileManager
        Config.Pfad = My.Application.Info.DirectoryPath & _
          "\updates\update-true.ini"
 
 
 
        'Überpruefen ob Updates gemacht werden müssen
        Dim UpdateAvailible As String
        Dim DoUpdate As Boolean = False
 
        'UpdateAvailible = Config.ReadValue("Update", "update")
        UpdateAvailible = Config.ReadValue("Update", "num")
        MsgBox(UpdateAvailible)
 
        If DoUpdate = True Then
            Dim Update As New Updater.MainWindow
            Update.ShowDialog()
        Else
            MsgBox("Keine Updates vorhanden.", MsgBoxStyle.Information = _
              MsgBoxStyle.OkOnly, "[Updater]")
            'GoTo noupdate
            Exit Sub
        End If