Public Class Main
 
    Public Port As Integer
    Public PictureCount As Integer
    Public Pictures(0) As Picture
 
    Private ListenerClass As New Listener(Me)
 
    ' Erstellt das Picture Control
    ' Startet den Listener
 
End Class
 
Public Class Listener
 
    Private ListenThread As Thread
    Private Shared Stat As Boolean 
 
    Private Listener As UdpClient
    Private EndPoint As IPEndPoint
 
    Public Shared ReadOnly Property GeStat() As Boolean
        Get
            Return Stat
        End Get
    End Property
 
    Public Sub StartListener()
 
        Stat = True
 
        Listener = New UdpClient(Port)
        EndPoint = New IPEndPoint(IPAddress.Any, Port)
 
        For i1 = 0 To PictureCount
            Pictures(i1).StartThread()
        Next i1
 
        ListenThread = New Thread(AddressOf Listen)
        ListenThread.Start()
 
    End Sub
 
    Public Sub ExitListener()
 
        Stat = False
 
        Listener.Close()
 
        For i1 = 0 To PictureCount
            Pictures(i1).StopThread()
        Next i1
 
        ListenThread.Abort()
 
    End Sub
 
    Private Sub Listen()
 
    [...] 'Daten empfangen
    Received()
 
    End Sub
 
    Private Sub Received()
 
        For i1 = 0 To PictureCount
            Pictures(i1).Value = newData ' Wert wird übergeben
        Next i1
 
    End Sub
 
End Class
 
Public Class Picture
 
    Private PictureThread As Thread
    Private Val As Boolean
 
    Private ImgOn As Image
    Private ImgOff As Image
 
    Public Property Value() As Boolean
        Get
            Return Val
        End Get
        Set(ByVal value As Boolean)
            Val = value
        End Set
    End Property
 
    Public Sub StartThread()
        PictureThread = New Thread(AddressOf Routine)
        PictureThread.Start()
    End Sub
 
    Public Sub StopThread()
        PictureThread.Abort()
    End Sub
 
    Private Sub Routine()
 
        Try
            While Listener.GetStat = True
                If Me.Value = True Then
                    Me.Image = ImgOn
                Else
                    Me.Image = Nothing
                    Me.BackgroundImage = ImgOff
                End If
            End While
        Catch ex As ThreadAbortException
            Me.Image = Nothing
            Me.BackgroundImage = ImgOff
        End Try
 
    End Sub
 
End Class