Public Sub startMyWorker(ByVal host As String, ByVal getIp As Boolean)
 
        If stop_flag = False Then
 
            Do While TaskThreads.Count > mod_optionen.scan_maxThreads
                My.Application.DoEvents()
                If stop_flag = True Then Exit Sub
            Loop
 
            Dim gd As New GetData(host, getIp)
 
            AddHandler gd.GetDataCompleted, AddressOf myWorkCompleted
 
            Dim myWorkerThread As New Thread(AddressOf gd.doWork)
            myWorkerThread.Start()
 
 
            arr_TaskThreads.Add(gd.Guid.ToString)
            TaskThreads.Add(gd.Guid.ToString, myWorkerThread)
        End If
 
    End Sub

            Dim taskGuid As String = gd.Guid.ToString
 
            arr_TaskThreads.Add(taskGuid)
            TaskThreads.Add(taskGuid, myWorkerThread)