private sub Statistikausgabe(optional oAusgabe as Object)
 if oAusgabe is nothing then set oAusgabe = Printer
'Ab hier ist das Object oAusgabe entweder die Referenz auf die Klasse oder das 
' Printer Object
 
.
.
.
oAusgabe.Line(10,10)-(30,30),B  'dieser Aufruf soll auch in der Klasse 
' existieren und umgesetzt werden können
.
.
.
 
end sub