Public Sub udp_zufuehrung_empfangen()
        Try
            thread_zufuehrung = New System.Threading.Thread(AddressOf _
              receivemessages)
            thread_zufuehrung.SetApartmentState(Threading.ApartmentState.STA)
            thread_zufuehrung.Start()
            log_anfuegen("Thread erfolgreich gestartet")
        Catch ex As Exception
            log_anfuegen("Fehler beim Starten des Threads für die" & _
              "Zuführungsverwaltung! - " & ex.Message)
        End Try
    End Sub

    Public Sub receivemessages()
        Dim brcv() As Byte
        Dim RemoteIpEndPoint As New System.Net.IPEndPoint( _
          System.Net.IPAddress.Parse("192.168.1.193"), 0)
        Try
            Dim udp_zufuehrung As New System.Net.Sockets.UdpClient(4500) 
            brcv = udp_zufuehrung.Receive(RemoteIpEndPoint)
            log_anfuegen("Es wurden Daten auf Port 4500 empfangen!")