Public Class Main
 
	Private Sub Main()
                'Definition der Achsen 
		Dim X As New Axis(Axis.Type.A, Port1, "0", 100, 1) 'z.B. vom Typ A
		Dim Y As New Axis(Axis.Type.A, Port2, "0", 100, 1) 'z.B. vom Typ A
		Dim Z As New Axis(Axis.Type.B, Port3, "0", 100, 1) 'z.B. vom Typ B, andere 
' Routinen nötig
 
                'Befehle zu den Achsen
		X.Home()
		Y.Home()
		Z.Home()
	End Sub
 
End Class

Public Class Axis
 
    Sub New(Typ as .., ByVal Port As SerialPort, ByVal ...)
 
        'Hier wird je nach Typ (A oder 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, ...)
            Case Type.Zaber
        End Select
 
    End Sub
 
 
    Sub Home()
          'Je nach Typ (A oder B) wird hier die Routine A.Home() oder B.Home() 
          ' aufgerufen
	  Achse.Home()
    End Sub
 
 
End Class