Index: trunk/Include/Classes/ActiveBasic/Core/InterfaceInfo.ab
===================================================================
--- trunk/Include/Classes/ActiveBasic/Core/InterfaceInfo.ab	(revision 353)
+++ trunk/Include/Classes/ActiveBasic/Core/InterfaceInfo.ab	(revision 353)
@@ -0,0 +1,18 @@
+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
Index: trunk/Include/Classes/index.ab
===================================================================
--- trunk/Include/Classes/index.ab	(revision 352)
+++ trunk/Include/Classes/index.ab	(revision 353)
@@ -1,2 +1,3 @@
+#require "./ActiveBasic/Core/InterfaceInfo.ab"
 #require "./ActiveBasic/Core/TypeInfo.ab"
 #require "./ActiveBasic/Math/Math.ab"