Public Shared Sub Infobroker_StateReceived(ByVal sContextName As String, ByVal _
  sName As String, ByVal vValue As Object) Handles NWLayerCOM.StateReceived
        Dim imgrec As Single
 
        If sName = MMI.Infobroker.IB_Variablen.nCameraImageAvailable Then
            imgrec = vValue
        End If
        MMI.Menueleiste.BildFenster.img = imgrec

        While img = 0
 
        End While

mfg
rt