Public Interface IGeraet
    ReadOnly Property TypName() As String
    ReadOnly Property Name() As String
    ReadOnly Property Status() As String
    Sub Action(ByVal Command As String)
End Interface
Public Class Heizung
    Implements IGeraet
 
    Private AktuelleIstTemperatur As Double
 
    Protected meinName As String
    Public Sub New(ByVal _name As String)
        meinName = _name
    End Sub
 
    Public Sub Action(ByVal Command As String) Implements IGeraet.Action
        AktuelleIstTemperatur = CDbl(Command)
    End Sub
 
    Public ReadOnly Property TypName() As String Implements IGeraet.TypName
        Get
            Return "Heizung"
        End Get
    End Property
    Public ReadOnly Property Name() As String Implements IGeraet.Name
        Get
            Return meinName
        End Get
    End Property
 
    Public ReadOnly Property Status() As String Implements IGeraet.Status
        Get
            Return AktuelleIstTemperatur.ToString()
        End Get
    End Property
End Class

Public Class Standby
 
    Implements IGeraet
    Protected mein_Name As String
 
    Public Sub New(ByVal _name As String)
        mein_Name = _name
    End Sub
    Public Sub Action(ByVal Command As String) Implements IGeraet.Action
        Select Case Command.ToLower
            Case "ein" Or "true" Or "on" Or "1"
                rStatus = RaumStatus.Ein
            Case "aus" Or "false" Or "off" Or "0"
                rStatus = RaumStatus.Aus
        End Select
    End Sub
 
    Public ReadOnly Property Name() As String Implements IGeraet.Name
        Get
            Return mein_Name
        End Get
    End Property
 
    Public ReadOnly Property Status() As String Implements IGeraet.Status
        Get
            Return rStatus
        End Get
    End Property
 
    Public ReadOnly Property TypName() As String Implements IGeraet.TypName
        Get
            Return "Standby"
        End Get
    End Property
    Public Enum RaumStatus
        Aus = 0
        Ein = 1
    End Enum
    Protected rStatus As RaumStatus = RaumStatus.Aus
End Class