Public Class Form1
 
   'Formular-Ebene
   Dim a As New AxisA
   Dim m1 As New Motor(a)
 
   Dim b As New AxisB
   Dim m2 As New Motor(b)
 
 
   Private Sub Form1_Load(sender As System.Object, _
                e As System.EventArgs) Handles MyBase.Load  
 
      'Routinen-Ebene
      m1.Home()
      m2.Home() 
 
      m1.axe = b 'Einbau einer anderen Achse per Property
      m1.Home()
 
  End Sub
 
End Class