Type InterfaceStructure
	thisPtr As VoidPtr
	vtblPtr As VoidPtr
End Type

Function CastToInterface( obj As Object, typeOfInterface As System.TypeInfo ) As InterfaceStructure
	Dim interfaceStructure As InterfaceStructure

	' TODO: ŽÀ‘•
	'interfaceStructure.thisPtr = ObjPtr( obj )
	'interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface )
End Function