public class Artikel
public property Käufer () as Kunde
....
end property
public sub set_Käufer (byval KundenNummer as integer)
dim myKunde as Kunde =  holeObjKunde(KundenNummer)
me.Käufer = myKunde
end sub
end class

Micke