InterFace IAnimal
Sub Sing()
End InterFace
Class CDog
inherits IAnimal
Public
Sub Sing() ' override
Print "わんわん"
End Sub
Sub Sing(I As Long) ' overload
Dim A As Long
For A = 0 To I - 1
Print "わん"
Next A
End Sub
End Class
Dim Animal As *IAnimal
Animal = new CDog
Animal->Sing()
delete Animal
End