X.Home()
   Y.Move(20)
   Z.Speed = 100
   ...

		Dim X As New Axis(Axis.Type.A, Port1) 'z.B. vom Typ A
		Dim Y As New Axis(Axis.Type.A, Port2) 'z.B. vom Typ A
		Dim Z As New Axis(Axis.Type.B, Port3) 'z.B. vom Typ B

Public Class Axis
 
    Sub New(Typ as .., ByVal Port As SerialPort, ByVal ...)
 
        'Hier wird je nach Typ (A, B ,,,, ) die Variable Achse definiert
        Select Case Typ
            Case Type.A
		 Dim Achse As New A(Port, ,...)
            Case Type.B
		 Dim Achse As New B(Port, ...)
            '....
            '.... ca. 6-7 mögliche Achsen-Typen 
 
        End Select
 
    End Sub
 
 
    Sub Home()
          'Je nach Typ von "Achse" wird hier die Routine A.Home() oder B.Home() 
          ' ...  aufgerufen
	  Achse.Home()
    End Sub
 
    Sub Move()
          Achse.Move()
    End Sub
 
    '....
    '....  ca. 10-15 mögliche Befehle
 
 
End Class