Public Interface AxisMethods
    Sub Home()
End Interface
 
Public MustInherit Class Axis
    Implements AxisMethods
 
    Public MustOverride Sub Home() Implements AxisMethods.Home
 
End Class
 
Public Class AxisA
    Inherits Axis
 
    Public Overrides Sub Home()
        MsgBox("Home in A")
    End Sub
End Class
 
Public Class AxisB
    Inherits Axis
 
    Public Overrides Sub Home()
        MsgBox("Home in B")
    End Sub
End Class
 
 
Public Class Motor
    Dim _axe As Axis
 
    Public Sub New(axe As Axis)
        _axe = axe
    End Sub
 
    Public Sub Home()
        _axe.Home()
    End Sub
End Class

Dim a As New AxisA
Dim m1 As New Motor(a)
m1.Home()
 
Dim b As New AxisB
Dim m2 As New Motor(b)
m2.Home()