Zitat:

"Functions" und "Subs" können nur innerhalb des Codes von "Functions", "Subs" oder "Properties" gerufen werden.

   Dim m1 As New Motor("A")
   Dim m2 As New Motor("B")
 
   m1.Home()
   m2.Home()

Public Class Motor
    Implements AxisMethods
 
    Dim _axe As Axis
 
    Public Sub New(ByVal t As String)
        Select Case t
            Case "A"
                Dim a As New AxisA
                _axe = a
            Case "B"
                Dim b As New AxisB
                _axe = b
        End Select
    End Sub
 
 
    Public Sub Home() Implements AxisMethods.Home
        _axe.Home()
    End Sub
 
End Class