ASP class Combination

The functionality of the ASP class is limited, so sometimes we have to implement complex functions, we have to use a combination to achieve.

Class Cfish
Sub Swim ()
End Sub
End Class

Class Cbird
Sub Fly ()
End Sub
End Class

Class Canimal
Dim fish
Dim bird

Private Sub Class_Initialize ()
Set fish = new Cfish
Set bird = new Cbird
End Sub

Private Sub Class_Terminate ()
Set fish = Nothing
Set bird = Nothing
End Sub
End Class

Dim animal
Set animal = new Canimal
Call Animal.fish.Swim () ' Fish swim
Call animal.bird.Fly () ' Bird fly
Set animal = Nothing