Namespace ActiveBasic
Namespace Core


Class InterfaceInfo
	' No Inherits
	__this As VoidPtr
	__vtbl As VoidPtr
Public
	Sub ITest( pThis As VoidPtr, pVtbl As VoidPtr )
		__this = pThis
		__vtbl = pVtbl
	End Sub
End Class


End Namespace
End Namespace