Private Sub AxEIBnet1_OnReceive(ByVal sender As System.Object, ByVal e As _
  AxEIBNETLib._DEIBnetEvents_OnReceiveEvent) Handles AxEIBnet1.OnReceive
       if e.value = "1/0/1"  then EingangsTür.SchlüsselImSchloß= True
      if e.value = "1/0/0"  then EingangsTür.OpenStatus = Status.geschlossen
End Sub
 
 
public Class Tür
public property OpenStatus () as Status
get (....)
set (....
call PrüfungXY
)
end property
public property SchlüsselImSchloß () as Boolean
get (....)
set (....
call PrüfungXY
)
end property
private sub PrüfungXY () 
if Me.OpenStatus = Status.geöffnet and SchlüsselImSchloß = True then
 me.RoteHinweisLampe = LampenStatus.ON
end if
end sub

Micke