Class HelloWord
public function display()
MsgBox "Hello Word"
End function
End class
Class Test
private myHelloWord
public sub Class_Initialize
Set myHelloWord = new HelloWord
end sub
public Property Get displayer
Set displayer = myHelloWord
end Property