#COMPILE EXE
#DIM ALL
#DEBUG ERROR ON

CLASS cTestClass

    INSTANCE m_Volume AS LONG

    CLASS METHOD CREATE()
        LOCAL pTestClass AS ITestClass
        pTestClass = ME
        IF ISOBJECT(pTestClass) THEN m_Volume = pTestClass.VOLUME_High
        ? STR$(m_Volume)
    END METHOD

    INTERFACE ITestClass : INHERIT IDISPATCH

        METHOD TestMethod()
            ? "Volume: " & STR$(m_Volume)
        END METHOD

        PROPERTY GET VOLUME_High() AS LONG : PROPERTY = 100 : END PROPERTY
        PROPERTY GET VOLUME_Low() AS LONG : PROPERTY = 0 : END PROPERTY

    END INTERFACE

END CLASS


FUNCTION PBMAIN () AS LONG

    DIM o AS ITestClass
    o = CLASS "cTestClass"

    o.TestMethod()

END FUNCTION