Initial commit

samples/test/MathProj/Math.cls

@@ -0,0 +1,37 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior  = 0  'vbNone
+  MTSTransactionMode  = 0  'NotAnMTSObject
+END
+Attribute VB_Name = "Math"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
+Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
+'To fire this event, use RaiseEvent with the following syntax:
+'RaiseEvent DoneAdd[(arg1, arg2, ... , argn)]
+Public Event DoneAdd(result As Variant)
+'To fire this event, use RaiseEvent with the following syntax:
+'RaiseEvent DoneMult[(arg1, arg2, ... , argn)]
+Public Event DoneMult(result As Variant)
+
+
+Public Function Mult(in1 As Variant, in2 As Variant) As Variant
+  Mult = in1 * in2
+  RaiseEvent DoneMult(in1 * in2)
+End Function
+
+Public Function Add(in1 As Variant, in2 As Variant) As Variant
+  Add = in1 + in2
+  RaiseEvent DoneAdd(in1 + in2)
+End Function
+
+Public Function getNothing() As Variant
+  Set getNothing = Nothing
+End Function
+

samples/test/MathProj/MathTest.vbp

@@ -0,0 +1,35 @@
+Type=OleDll
+Class=Math; Math.cls
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\StdOle2.Tlb#OLE Automation
+Startup="(None)"
+HelpFile=""
+Title="MathTest"
+ExeName32="MathTest.dll"
+Command32=""
+Name="MathTest"
+HelpContextID="0"
+CompatibleMode="1"
+CompatibleEXE32="MathTest.dll"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="Inventure America, Inc."
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=1
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+ThreadingModel=1
+DebugStartupOption=0

samples/test/MathProj/MathTest.vbw

@@ -0,0 +1 @@
+Math = 75, 13, 656, 554, 

samples/test/MathProj/README

@@ -0,0 +1 @@
+A Simple VB COM DLL that exposes two methods and raises events.