Public Class Motor
    Implements AxisMethods
 
    Dim _axe As Axis
 
    Public Sub New(axe As Axis)
        _axe = axe
    End Sub
 
    Public Property axe() As Axis
        Set(value As Axis)
            _axe = value
        End Set
        Get
            Return _axe
        End Get
    End Property
 
 
    Public Sub Home() Implements AxisMethods.Home
        _axe.Home()
    End Sub
End Class

'Achse ab Werk (A)
Dim a As New AxisA
Dim m1 As New Motor(a)
m1.Home()
 
'Auswechslung der Achse (B)
Dim b As New AxisB
m1.axe = b
m1.Home()