'das geht ja leider nicht:
select case typ_m1
   case "A":  Dim a As New AxisA
   case "B":  Dim a As New AxisB
end select
 
select case typ_m2
   case "A":  Dim b As New AxisA
   case "B":  Dim b As New AxisB
end select
 
Dim m1 As New Motor(a)
Dim m2 As New Motor(b)
 
m1.Home()
m2.Home()