Dim obj As New ClassA
        Dim thread1, thread2 As Thread
        thread1 = New Thread(New ThreadStart(AddressOf obj.Execution1))
        thread2 = New Thread(New ThreadStart(AddressOf obj.Execution2))
 
        ' die Priorität von thread1 hochsetzen
        thread1.Priority = ThreadPriority.Highest
 
        ' thread 1 starten
        thread1.Start()
        ' thread 2 starten
        thread2.Start()
    End Sub
 
    Class ClassA
        Private WithEvents httpClient As WebClient
        Private URL As String
 
        Public Sub Execution1()
            'Auf Updates prüfen
            Dim path As String
            path = My.Application.Info.DirectoryPath & _
              "\updates\update-true.ini"
 
            'Updateinfos laden
            Try
                httpClient = New WebClient
                Url = "<Webserver URL>"
                'Me.Show()
 
                Application.DoEvents()
                httpClient.DownloadFileAsync(New Uri(Url), path)
                Application.DoEvents()
 
            Catch ex As Exception
                MsgBox("Fehler !" & vbNewLine & ex.ToString)
                End
            End Try
        End Sub
        Public Sub Execution2()
            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
                Form1.edUpdate.Text = "Updates availible."
            Else
                MsgBox("Keine Updates vorhanden.", MsgBoxStyle.Information = _
                  MsgBoxStyle.OkOnly, "[Updater]")
                Exit Sub
            End If
        End Sub
 
    End Class