*** empty log message ***

10 files changed, 836 insertions, 24 deletions

diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp
index 821769e5bf50..9a469cbfcfc1 100644
--- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp
+++ b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp
@@ -11,4 +11,9 @@ STDMETHODIMP CEvtListener::disposing( IDispatch* source)
     ::MessageBox(NULL,_T("XEventListener::disposing"),
         _T("EventListener.EvtListener component"), MB_OK);
     return S_OK;
+}
+
+CEvtListener::~CEvtListener()
+{
+
 }
\ No newline at end of file
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h
index 8bbb9c1591bf..7b9b6a1f8df7 100644
--- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h
+++ b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h
@@ -16,6 +16,7 @@ public:
     CEvtListener()
     {
     }
+    ~CEvtListener();
 
 DECLARE_REGISTRY_RESOURCEID(IDR_EVTLISTENER)
 
diff --git a/extensions/test/ole/OleTest.htm b/extensions/test/ole/OleTest.htm
index 343d1b7c9c20..5aaad3322cd1 100644
--- a/extensions/test/ole/OleTest.htm
+++ b/extensions/test/ole/OleTest.htm
@@ -373,6 +373,7 @@ function callOleTest(	 id)
 		arrout1[0]= ob;
 		alert (arrout1[0].value);
 		oletest.testinout_methodXInterface( arrout1);
+		alert (arrout1[0].value);
 		var outValue= arrout1[0];
 		for ( key in outValue)
 		{
@@ -949,7 +950,7 @@ Template: <b> Sequence &lt type &gt method( Sequence&lt type &gt ) </b> <br>
 
 
 IN/Out parameter <br>
-Template: <b> void method( Sequence &lt type &gt ) </b> <br>
+Template: <b> void method(type  ) </b> <br>
 <button onclick='callBasic(100)'>byte</button>
 <button onclick='callBasic(101)'>double</button>
 <button onclick='callBasic(102)'>boolean</button>
diff --git a/extensions/test/ole/VisualBasic/Form1.frm b/extensions/test/ole/VisualBasic/Form1.frm
new file mode 100644
index 000000000000..c2ed1f6a11f5
--- /dev/null
+++ b/extensions/test/ole/VisualBasic/Form1.frm
@@ -0,0 +1,349 @@
+VERSION 5.00
+Begin VB.Form Form1 
+   Caption         =   "Form1"
+   ClientHeight    =   4572
+   ClientLeft      =   48
+   ClientTop       =   336
+   ClientWidth     =   8460
+   LinkTopic       =   "Form1"
+   ScaleHeight     =   4572
+   ScaleWidth      =   8460
+   StartUpPosition =   3  'Windows Default
+   Begin VB.CommandButton ctrInParamStart 
+      Caption         =   "Start"
+      Height          =   252
+      Left            =   240
+      TabIndex        =   20
+      Top             =   480
+      Width           =   732
+   End
+   Begin VB.TextBox tareaResult 
+      Height          =   1932
+      Left            =   4920
+      TabIndex        =   19
+      Top             =   480
+      Width           =   3372
+   End
+   Begin VB.CommandButton Command20 
+      Caption         =   "Command20"
+      Height          =   252
+      Left            =   3000
+      TabIndex        =   18
+      Top             =   2640
+      Width           =   492
+   End
+   Begin VB.CommandButton Command19 
+      Caption         =   "string"
+      Height          =   252
+      Left            =   2280
+      TabIndex        =   17
+      Top             =   2640
+      Width           =   492
+   End
+   Begin VB.CommandButton Command18 
+      Caption         =   "long"
+      Height          =   252
+      Left            =   1560
+      TabIndex        =   16
+      Top             =   2640
+      Width           =   492
+   End
+   Begin VB.CommandButton Command17 
+      Caption         =   "short"
+      Height          =   252
+      Left            =   840
+      TabIndex        =   15
+      Top             =   2640
+      Width           =   492
+   End
+   Begin VB.CommandButton Command16 
+      Caption         =   "byte"
+      Height          =   252
+      Left            =   120
+      TabIndex        =   14
+      Top             =   2640
+      Width           =   492
+   End
+   Begin VB.CommandButton Command15 
+      Caption         =   "array"
+      Height          =   252
+      Left            =   3000
+      TabIndex        =   12
+      Top             =   1920
+      Width           =   612
+   End
+   Begin VB.CommandButton Command14 
+      Caption         =   "string"
+      Height          =   252
+      Left            =   2280
+      TabIndex        =   11
+      Top             =   1920
+      Width           =   492
+   End
+   Begin VB.CommandButton Command13 
+      Caption         =   "long"
+      Height          =   252
+      Left            =   1440
+      TabIndex        =   10
+      Top             =   1920
+      Width           =   612
+   End
+   Begin VB.CommandButton Command12 
+      Caption         =   "short"
+      Height          =   252
+      Left            =   720
+      TabIndex        =   9
+      Top             =   1920
+      Width           =   612
+   End
+   Begin VB.CommandButton Command11 
+      Caption         =   "byte"
+      Height          =   252
+      Left            =   120
+      TabIndex        =   8
+      Top             =   1920
+      Width           =   492
+   End
+   Begin VB.CommandButton Command10 
+      Caption         =   "array"
+      Height          =   252
+      Left            =   3000
+      TabIndex        =   6
+      Top             =   1200
+      Width           =   612
+   End
+   Begin VB.CommandButton Command9 
+      Caption         =   "string"
+      Height          =   252
+      Left            =   2280
+      TabIndex        =   5
+      Top             =   1200
+      Width           =   612
+   End
+   Begin VB.CommandButton Command8 
+      Caption         =   "long"
+      Height          =   252
+      Left            =   1560
+      TabIndex        =   4
+      Top             =   1200
+      Width           =   612
+   End
+   Begin VB.CommandButton Command7 
+      Caption         =   "short"
+      Height          =   252
+      Left            =   840
+      TabIndex        =   3
+      Top             =   1200
+      Width           =   612
+   End
+   Begin VB.CommandButton Command6 
+      Caption         =   "byte"
+      Height          =   252
+      Left            =   120
+      TabIndex        =   2
+      Top             =   1200
+      Width           =   612
+   End
+   Begin VB.Label Label4 
+      Caption         =   "Properties"
+      Height          =   252
+      Left            =   120
+      TabIndex        =   13
+      Top             =   2280
+      Width           =   1212
+   End
+   Begin VB.Label Label3 
+      Caption         =   "In Out Parameter"
+      Height          =   252
+      Left            =   120
+      TabIndex        =   7
+      Top             =   1560
+      Width           =   1332
+   End
+   Begin VB.Label Label2 
+      Caption         =   "Out Parameter"
+      Height          =   252
+      Left            =   120
+      TabIndex        =   1
+      Top             =   840
+      Width           =   1332
+   End
+   Begin VB.Label Label1 
+      Caption         =   "In Parameter"
+      Height          =   252
+      Left            =   240
+      TabIndex        =   0
+      Top             =   120
+      Width           =   1212
+   End
+End
+Attribute VB_Name = "Form1"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+Private objServiceManager
+Private objCoreReflection
+Private objOleTest
+
+Private Sub ctrInParamStart_Click()
+Dim ret As Variant
+
+' In Parameter, simple types
+'============================================
+ret = objOleTest.in_methodByte(10)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodFloat(3.14)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+
+Dim d As Double 'try conversion
+d = 3.14
+ret = objOleTest.in_methodFloat(3.14)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodDouble(4.14)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+Dim s As Single
+s = 4.14
+ret = objOleTest.in_methodDouble(s)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodBool(True)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodBool(False)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodShort(-10)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodUShort(10)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodLong(-1000000)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodULong(1000000)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodString("This is a String")
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodChar("A")
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodAny("This is a String in an any")
+Debug.Print TypeName(ret) & " " & CStr(ret)
+
+Call objOleTest.in_methodAll(10, 10.1, 10.111, True, 10, 11, 12, 13, _
+            "A String", "A", "A String in an Any")
+            
+'Out Parameter simple types
+'================================================
+Dim outByte As Byte
+objOleTest.testout_methodByte outByte
+Debug.Print "out byte " & CStr(outByte)
+Dim outFloat As Single
+objOleTest.testout_methodFloat outFloat
+Debug.Print "out float " & CStr(outFloat)
+Dim outDouble As Double
+objOleTest.testout_methodDouble outDouble
+Debug.Print "out double " & CStr(outDouble)
+Dim outBool As Boolean
+objOleTest.testout_methodBool outBool
+Debug.Print "out bool " & CStr(outBool)
+Dim outInt As Integer
+objOleTest.testout_methodShort outInt
+Debug.Print "out short " & CStr(outInt)
+objOleTest.testout_methodUShort outInt
+Debug.Print "out unsignedshort " & CStr(outInt)
+Dim outLong As Long
+objOleTest.testout_methodLong outLong
+Debug.Print "out long " & CStr(outInt)
+objOleTest.testout_methodULong outLong
+Debug.Print "out unsigned long " & CStr(outInt)
+Dim outString As String
+objOleTest.testout_methodString outString
+Debug.Print "out string " & CStr(outString)
+Dim outChar As Integer
+objOleTest.testout_methodChar outChar
+Debug.Print "out char " & CStr(outChar)
+Dim outCharS As String
+objOleTest.testout_methodChar outCharS
+Debug.Print "out char (String) " & CStr(outCharS)
+objOleTest.testout_methodAny outString
+Debug.Print "out Any " & CStr(outString)
+'Out Parameter simple types (VARIANT var)
+Dim outVar As Variant
+objOleTest.testout_methodByte outVar
+Debug.Print "out Byte (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodFloat outVar
+Debug.Print "out float (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodDouble outVar
+Debug.Print "out double (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodBool outVar
+Debug.Print "out bool (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodShort outVar
+Debug.Print "out short (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodUShort outVar
+Debug.Print "out unsigned short (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodLong outVar
+Debug.Print "out long (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodULong outVar
+Debug.Print "out unsigned long (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodString outVar
+Debug.Print "out string (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodChar outVar
+Debug.Print "out char (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodAny outVar
+Debug.Print "out any (VARIANT) " & CStr(outVar)
+
+'In/Out simple types
+outByte = 10
+objOleTest.testinout_methodByte outByte
+Debug.Print "inout byte " & CStr(outByte)
+outFloat = 3.14
+objOleTest.testinout_methodFloat outFloat
+Debug.Print "inout float " & CStr(outFloat)
+outDouble = 4.14
+objOleTest.testinout_methodDouble outDouble
+Debug.Print "inout double " & CStr(outDouble)
+outBool = True
+objOleTest.testinout_methodBool outBool
+Debug.Print "inout bool " & CStr(outBool)
+outInt = 10
+objOleTest.testinout_methodShort outInt
+Debug.Print "inout short " & CStr(outInt)
+outInt = 20
+objOleTest.testinout_methodUShort outInt
+Debug.Print "inout unsignedshort " & CStr(outInt)
+outLong = 30
+objOleTest.testinout_methodLong outLong
+Debug.Print "inout long " & CStr(outLong)
+outLong = 40
+objOleTest.testinout_methodULong outLong
+Debug.Print "inout unsigned long " & CStr(outLong)
+outString = "this is an in string"
+objOleTest.testinout_methodString outString
+Debug.Print "inout string " & CStr(outString)
+
+outString = "this is an in String"
+objOleTest.testout_methodChar outString
+Debug.Print "out char " & CStr(outString)
+outString = "this is another in out string"
+objOleTest.testout_methodAny outString
+Debug.Print "out Any " & CStr(outString)
+
+
+
+
+
+Dim var As Boolean
+var = True
+Debug.Print CStr(var)
+
+
+End Sub
+
+Private Sub Form_Load()
+    Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
+    Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
+
+    Set objOleTest = objServiceManager.createInstance("oletest.OleTest")
+    Debug.Print TypeName(objOleTest)
+End Sub
+
+Private Sub Text1_Change()
+
+End Sub
diff --git a/extensions/test/ole/VisualBasic/Module1.bas b/extensions/test/ole/VisualBasic/Module1.bas
new file mode 100644
index 000000000000..e8655dccfc91
--- /dev/null
+++ b/extensions/test/ole/VisualBasic/Module1.bas
@@ -0,0 +1,283 @@
+Attribute VB_Name = "Module1"
+Option Explicit
+
+Private objServiceManager
+Private objCoreReflection
+Private objOleTest
+Private objEventListener
+
+Sub Main()
+    Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
+    Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
+    ' extensions/test/ole/cpnt
+    Set objOleTest = objServiceManager.createInstance("oletest.OleTest")
+    ' extensions/test/ole/EventListenerSample/VBEventListener
+    Set objEventListener = CreateObject("VBasicEventListener.VBEventListener")
+    Debug.Print TypeName(objOleTest)
+
+' In Parameter, simple types
+'============================================
+Dim tmpVar As Variant
+Dim ret As Variant
+ret = objOleTest.in_methodByte(10)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodFloat(3.14)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+
+Dim d As Double 'try conversion
+d = 3.14
+ret = objOleTest.in_methodFloat(3.14)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodDouble(4.14)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+Dim s As Single
+s = 4.14
+ret = objOleTest.in_methodDouble(s)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodBool(True)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodBool(False)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodShort(-10)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodUShort(10)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodLong(-1000000)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodULong(1000000)
+Debug.Print TypeName(ret) & " " & CStr(ret)
+ret = objOleTest.in_methodString("This is a String")
+Debug.Print TypeName(ret) & " " & CStr(ret)
+'different character tests
+ret = objOleTest.in_methodChar("A")
+Debug.Print TypeName(ret) & " " & CStr(ret)
+Dim ret1 As String
+ret1 = objOleTest.in_methodChar("A")
+Debug.Print TypeName(ret1) & " " & CStr(ret1)
+ret1 = objOleTest.in_methodChar(65)
+Debug.Print TypeName(ret1) & " " & CStr(ret1)
+ret = objOleTest.in_methodAny("This is a String in an any")
+Debug.Print TypeName(ret) & " " & CStr(ret)
+'Call objOleTest.in_methodAll(10, 10.1, 10.111, True, 10, 11, 12, 13, _
+'            "A String", "A", "A String in an Any")
+            
+'Out Parameter simple types
+'================================================
+Dim outByte As Byte
+objOleTest.testout_methodByte outByte
+Debug.Print "out byte " & CStr(outByte)
+Dim outFloat As Single
+objOleTest.testout_methodFloat outFloat
+Debug.Print "out float " & CStr(outFloat)
+Dim outDouble As Double
+objOleTest.testout_methodDouble outDouble
+Debug.Print "out double " & CStr(outDouble)
+Dim outBool As Boolean
+objOleTest.testout_methodBool outBool
+Debug.Print "out bool " & CStr(outBool)
+Dim outInt As Integer
+objOleTest.testout_methodShort outInt
+Debug.Print "out short " & CStr(outInt)
+objOleTest.testout_methodUShort outInt
+Debug.Print "out unsignedshort " & CStr(outInt)
+Dim outLong As Long
+objOleTest.testout_methodLong outLong
+Debug.Print "out long " & CStr(outInt)
+objOleTest.testout_methodULong outLong
+Debug.Print "out unsigned long " & CStr(outInt)
+Dim outString As String
+objOleTest.testout_methodString outString
+Debug.Print "out string " & CStr(outString)
+Dim outChar As Integer
+objOleTest.testout_methodChar outChar
+Debug.Print "out char " & CStr(outChar)
+Dim outCharS As String
+objOleTest.testout_methodChar outCharS
+Debug.Print "out char (String) " & CStr(outCharS)
+objOleTest.testout_methodAny outString
+Debug.Print "out Any " & CStr(outString)
+
+'Out Parameter simple types (VARIANT var)
+Dim outVar As Variant
+objOleTest.testout_methodByte outVar
+Debug.Print "out Byte (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodFloat outVar
+Debug.Print "out float (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodDouble outVar
+Debug.Print "out double (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodBool outVar
+Debug.Print "out bool (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodShort outVar
+Debug.Print "out short (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodUShort outVar
+Debug.Print "out unsigned short (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodLong outVar
+Debug.Print "out long (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodULong outVar
+Debug.Print "out unsigned long (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodString outVar
+Debug.Print "out string (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodChar outVar
+Debug.Print "out char (VARIANT) " & CStr(outVar)
+objOleTest.testout_methodAny outVar
+Debug.Print "out any (VARIANT) " & CStr(outVar)
+
+'In/Out simple types
+'============================================
+outByte = 10
+objOleTest.testinout_methodByte outByte
+Debug.Print "inout byte " & CStr(outByte)
+outFloat = 3.14
+objOleTest.testinout_methodFloat outFloat
+Debug.Print "inout float " & CStr(outFloat)
+outDouble = 4.14
+objOleTest.testinout_methodDouble outDouble
+Debug.Print "inout double " & CStr(outDouble)
+outBool = True
+objOleTest.testinout_methodBool outBool
+Debug.Print "inout bool " & CStr(outBool)
+outInt = 10
+objOleTest.testinout_methodShort outInt
+Debug.Print "inout short " & CStr(outInt)
+outInt = 20
+objOleTest.testinout_methodUShort outInt
+Debug.Print "inout unsignedshort " & CStr(outInt)
+outLong = 30
+objOleTest.testinout_methodLong outLong
+Debug.Print "inout long " & CStr(outLong)
+outLong = 40
+objOleTest.testinout_methodULong outLong
+Debug.Print "inout unsigned long " & CStr(outLong)
+outString = "this is an in string"
+objOleTest.testinout_methodString outString
+Debug.Print "inout string " & CStr(outString)
+'different Char conversions
+objOleTest.testout_methodChar outString
+Debug.Print "out char (in: String)" & CStr(outString)
+objOleTest.testout_methodChar outInt
+Debug.Print "out char (in: Int)" & CStr(outInt)
+'--
+outString = "this is another in out string"
+objOleTest.testout_methodAny outString
+Debug.Print "out Any " & CStr(outString)
+
+'Objects
+'
+'==========================================================
+' COM obj
+Dim retObj As Object
+'OleTest calls a disposing on the object
+Set retObj = objOleTest.in_methodInvocation(objEventListener)
+'The returned object should be objEventListener, test it
+' takes an IDispatch as Param ( EventObject).To provide a TypeMismatch
+'we put in another IDispatch
+objEventListener.disposing objEventListener
+
+' out param gives out the OleTestComponent
+objOleTest.testout_methodXInterface retObj
+outVar = Null
+retObj.testout_methodAny outVar
+Debug.Print "test out Interface " & CStr(outVar)
+'in out
+' in: UNO object, the same is expected as out param
+' the function expects OleTest as parameter and sets a value
+Dim objOleTest2 As Object
+Set objOleTest2 = objServiceManager.createInstance("oletest.OleTest")
+'Set a value
+objOleTest2.AttrAny2 = "VBString "
+objOleTest.testinout_methodXInterface2 objOleTest2
+tmpVar = Null
+tmpVar = objOleTest2.AttrAny2
+Debug.Print "in: Uno out: the same object // " & CStr(tmpVar)
+
+
+'create a struct
+Dim structClass As Object
+Set structClass = objCoreReflection.forName("oletest.SimpleStruct")
+Dim structInstance As Object
+structClass.CreateObject structInstance
+structInstance.message = "Now we are in VB"
+Debug.Print "struct out " & structInstance.message
+'put the struct into OleTest. The same struct will be returned with an added String
+Dim structRet As Object
+Set structRet = objOleTest.in_methodStruct(structInstance)
+Debug.Print "struct in - return " & structRet.message
+'inout later
+
+'Arrays
+'========================================
+Dim arrLong(2) As Long
+Dim arrObj(2) As Object
+Dim countvar As Long
+For countvar = 0 To 2
+    arrLong(countvar) = countvar + 10
+    Debug.Print countvar
+    Set arrObj(countvar) = CreateObject("VBasicEventListener.VBEventListener")
+Next
+
+'Arrays always contain VARIANTS
+Dim seq() As Variant
+seq = objOleTest.methodLong(arrLong)
+
+For countvar = 0 To 2
+    Debug.Print CStr(seq(countvar))
+Next
+seq = objOleTest.methodXInterface(arrObj)
+For countvar = 0 To 2
+    Dim tmp As Object
+        seq(countvar).disposing tmp
+Next
+
+'Get a sequence created in UNO, out param is Variant ( VT_BYREF|VT_VARIANT)
+Dim seqX As Variant
+
+objOleTest.testout_methodSequence seqX
+Dim key
+For Each key In seqX
+    Debug.Print CStr(seqX(key))
+Next
+'Get a sequence created in UNO, out param is array Variant ( VT_BYREF|VT_VARIANT|VT_ARRAY)
+Dim seqX2() As Variant
+objOleTest.testout_methodSequence seqX2
+
+For Each key In seqX2
+    Debug.Print CStr(seqX2(key))
+Next
+
+'pass it to UNO and get it back
+Dim seq7() As Variant
+seq7 = objOleTest.methodLong(seqX)
+Dim key2
+For Each key2 In seq7
+    Debug.Print CStr(seq7(key2))
+Next
+
+'in out Array
+' arrLong is Long Array
+Dim inoutVar(2) As Variant
+
+For countvar = 0 To 2
+    Debug.Print countvar
+    inoutVar(countvar) = countvar + 10
+Next
+
+objOleTest.testinout_methodSequence inoutVar
+Dim key5
+For Each key5 In inoutVar
+    Debug.Print CStr(key5)
+Next
+    
+
+
+
+
+
+
+
+
+Dim var As Boolean
+var = True
+Debug.Print CStr(var)
+
+
+End Sub
diff --git a/extensions/test/ole/VisualBasic/Project1.vbp b/extensions/test/ole/VisualBasic/Project1.vbp
new file mode 100644
index 000000000000..07eeaa06511b
--- /dev/null
+++ b/extensions/test/ole/VisualBasic/Project1.vbp
@@ -0,0 +1,33 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\WINNT\System32\stdole2.tlb#OLE Automation
+Module=Module1; Module1.bas
+Startup="Sub Main"
+HelpFile=""
+Command32=""
+Name="Project1"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="StarOffice"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+
+[MS Transaction Server]
+AutoRefresh=1
diff --git a/extensions/test/ole/VisualBasic/Project1.vbw b/extensions/test/ole/VisualBasic/Project1.vbw
new file mode 100644
index 000000000000..3d99943cbd3e
--- /dev/null
+++ b/extensions/test/ole/VisualBasic/Project1.vbw
@@ -0,0 +1 @@
+Module1 = 27, 27, 851, 658, Z
diff --git a/extensions/test/ole/cpnt/cpnt.cxx b/extensions/test/ole/cpnt/cpnt.cxx
index 16f2e4739d83..27d5dfd2072a 100644
--- a/extensions/test/ole/cpnt/cpnt.cxx
+++ b/extensions/test/ole/cpnt/cpnt.cxx
@@ -2,9 +2,9 @@
  *
  *  $RCSfile: cpnt.cxx,v $
  *
- *  $Revision: 1.4 $
+ *  $Revision: 1.5 $
  *
- *  last change: $Author: jl $ $Date: 2001-03-23 11:58:31 $
+ *  last change: $Author: jl $ $Date: 2001-12-03 13:56:48 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -70,9 +70,9 @@
 #include <com/sun/star/beans/PropertyAttribute.hpp>
 #include <com/sun/star/script/XInvocation.hpp>
 #include <com/sun/star/reflection/XIdlReflection.hpp>
+#include <com/sun/star/lang/XEventListener.hpp>
 
-
-#include <cppuhelper/implbase5.hxx>
+#include <cppuhelper/implbase7.hxx>
 #include <com/sun/star/uno/Reference.h>
 #include <rtl/ustring>
 #include <com/sun/star/uno/Reference.hxx>
@@ -83,7 +83,8 @@
 #include <oletest/XSimple.hpp>
 #include <oletest/XSimple2.hpp>
 #include <oletest/XSimple3.hpp>
-
+#include <oletest/XTestInParameters.hpp>
+#include <oletest/XTestOutParameters.hpp>
 #include <com/sun/star/beans/Property.hpp>
 using namespace cppu;
 using namespace osl;
@@ -101,8 +102,9 @@ using namespace com::sun::star::reflection;
 #define KEY1 L"/oletest.OleTestImpl/UNO/SERVICES"
 #define KEY2 L"oletest.OleTest"
 
-class OComponent : public WeakImplHelper5<
-         XTestSequence, XTestStruct, XTestOther, XTestInterfaces, XSimple>
+class OComponent : public WeakImplHelper7<
+         XTestSequence, XTestStruct, XTestOther, XTestInterfaces,
+                   XSimple, XTestOutParameters, XTestInParameters >
 {
     sal_Int32 m_arrayConstructor;
     Reference<XMultiServiceFactory> m_rFactory;
@@ -126,13 +128,6 @@ public:
     OComponent( const Reference<XMultiServiceFactory> & rFactory ) :
       m_rFactory( rFactory ), m_arrayConstructor(0) {}
     ~OComponent();
-
-public: // refcounting
-//      sal_Bool                        queryInterface( Uik aUik, XInterfaceRef & rOut );
-//      void                        acquire()                        { OWeakObject::acquire(); }
-//      void                        release()                        { OWeakObject::release(); }
-//      void*                       getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
-
 public: // XTestSequence
     virtual Sequence<sal_Int8> SAL_CALL methodByte(const Sequence< sal_Int8 >& aSeq) throw( RuntimeException );
     virtual Sequence<float> SAL_CALL methodFloat(const Sequence< float >& aSeq) throw( RuntimeException );
@@ -211,6 +206,7 @@ public: // XTestSequence
     virtual void SAL_CALL testinout_methodSequence(Sequence< sal_Int32 >& rOut) throw( RuntimeException );
     virtual void SAL_CALL testinout_methodSequence2(Sequence< Sequence< sal_Int32 > >& rOut) throw( RuntimeException );
     virtual void SAL_CALL testinout_methodXInterface( Reference< XInvocation >& rOut ) throw(RuntimeException);
+    virtual void SAL_CALL testinout_methodXInterface2( Reference< XInterface > & rOut) throw( RuntimeException);
     virtual Any SAL_CALL methodAnyTest1(const Any& rIn) throw( RuntimeException ) ;
     virtual Any SAL_CALL getAttrAny2(void) throw( RuntimeException ) ;
     virtual void SAL_CALL setAttrAny2(const Any& AttrAny2_) throw( RuntimeException ) ;
@@ -250,6 +246,22 @@ public: // XTestSequence
     virtual void SAL_CALL out_methodMulParams2(sal_Int32& rout1, sal_Int32& rout2, OUString& rout3) throw( RuntimeException );
     virtual void SAL_CALL out_methodMulParams3(const OUString& sin, OUString& sout) throw( RuntimeException );
 
+    // XTestInParameters
+    virtual sal_Int8 SAL_CALL in_methodByte( sal_Int8 rIn ) throw (RuntimeException);
+    virtual float SAL_CALL in_methodFloat( float rIn ) throw (RuntimeException);
+    virtual double SAL_CALL in_methodDouble( double rIn ) throw (RuntimeException);
+    virtual sal_Bool SAL_CALL in_methodBool( sal_Bool rIn ) throw (RuntimeException);
+    virtual sal_Int16 SAL_CALL in_methodShort( sal_Int16 rIn ) throw (RuntimeException);
+    virtual sal_uInt16 SAL_CALL in_methodUShort( sal_uInt16 rIn ) throw (RuntimeException);
+    virtual sal_Int32 SAL_CALL in_methodLong( sal_Int32 rIn ) throw (RuntimeException);
+    virtual sal_uInt32 SAL_CALL in_methodULong( sal_uInt32 rIn ) throw (RuntimeException);
+    virtual OUString SAL_CALL in_methodString( const OUString& rIn ) throw (RuntimeException);
+    virtual sal_Unicode SAL_CALL in_methodChar( sal_Unicode rIn ) throw (RuntimeException);
+    virtual Any SAL_CALL in_methodAny( const Any& rIn ) throw (RuntimeException);
+    virtual Reference<XInvocation > SAL_CALL in_methodInvocation( const Reference< XInvocation >& inv ) throw (RuntimeException);
+    virtual SimpleStruct SAL_CALL in_methodStruct( const SimpleStruct& aStruct ) throw (RuntimeException);
+    virtual void SAL_CALL in_methodAll( sal_Int8 b, float f, double d, sal_Bool boo, sal_Int16 sh, sal_uInt16 us, sal_Int32 l, sal_uInt32 ul, const OUString& s, sal_Unicode c, const Any& a, const Reference<XInvocation>& inv ) throw (RuntimeException);
+
     // XTestInterfaces --------------------------------------------------------------------------
     virtual void SAL_CALL testInterface(  const Reference< XCallback >& xCallback, sal_Int32 mode ) throw(RuntimeException);
     virtual void SAL_CALL testInterface2(  const Reference< XSimple >& xSimple, sal_Int32 mode ) throw(RuntimeException);
@@ -696,10 +708,93 @@ void SAL_CALL OComponent::testout_methodXInterface( Reference< XInterface >& rOu
 {
     OUString string( L"Property Any");
     m_any <<= string;
-    rOut= (XInterface*) static_cast<XTestSequence*>(this);
+    rOut=  Reference<XInterface> (static_cast<XTestSequence*>(this), UNO_QUERY);
+}
+
+// XTestInParameters ------------------------------------------------------------
+sal_Int8 SAL_CALL OComponent::in_methodByte( sal_Int8 rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+float SAL_CALL OComponent::in_methodFloat( float rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+double SAL_CALL OComponent::in_methodDouble( double rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+sal_Bool SAL_CALL OComponent::in_methodBool( sal_Bool rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+sal_Int16 SAL_CALL OComponent::in_methodShort( sal_Int16 rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+sal_uInt16 SAL_CALL OComponent::in_methodUShort( sal_uInt16 rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+sal_Int32 SAL_CALL OComponent::in_methodLong( sal_Int32 rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+sal_uInt32 SAL_CALL OComponent::in_methodULong( sal_uInt32 rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+OUString SAL_CALL OComponent::in_methodString( const OUString& rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+sal_Unicode SAL_CALL OComponent::in_methodChar( sal_Unicode rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+Any SAL_CALL OComponent::in_methodAny( const Any& rIn ) throw (RuntimeException)
+{
+    return rIn;
+}
+Reference<XInvocation > SAL_CALL OComponent::in_methodInvocation( const Reference< XInvocation >& inv )
+        throw (RuntimeException)
+{
+    //We expect the invocation results from a conversion of VBasicEventListener.VBEventListener
+//which implements XEventListener
+    // extensions/test/ole/EventListenerSample
+    EventObject event( Reference<XInterface>(static_cast<XTestInParameters*>(this),UNO_QUERY));
+    Any anyParam;
+    anyParam <<= event;
+    Sequence<Any> params( &anyParam, 1);
+    Sequence<sal_Int16> outIndex;
+    Sequence<Any> outParams;
+    try{
+    inv->invoke( OUString(RTL_CONSTASCII_USTRINGPARAM("disposing")),
+                params, outIndex, outParams);
+    }catch(IllegalArgumentException & iae) {
+    }
+    catch(CannotConvertException & cce) {
+    }
+    catch(InvocationTargetException& ite) {
+    }
+    return inv;
 }
 
-// INOUT
+SimpleStruct SAL_CALL OComponent::in_methodStruct( const SimpleStruct& aStruct )
+        throw (RuntimeException)
+{
+    SimpleStruct& s= const_cast<SimpleStruct&>(aStruct);
+    s.message= s.message + OUString(RTL_CONSTASCII_USTRINGPARAM(
+        "This string was set in OleTest"));
+    return aStruct;
+}
+void SAL_CALL OComponent::in_methodAll( sal_Int8 b, float f, double d, sal_Bool boo, sal_Int16 sh, sal_uInt16 us,
+                                        sal_Int32 l, sal_uInt32 ul, const OUString& s, sal_Unicode c,
+                                        const Any& a, const Reference<XInvocation>& inv ) throw (RuntimeException)
+{
+}
+
+// INOUT -----------------------------------------------------------------------------------
 void SAL_CALL OComponent::testinout_methodByte(sal_Int8& rOut) throw( RuntimeException )
 {
     rOut += 1;
@@ -747,6 +842,7 @@ void SAL_CALL OComponent::testinout_methodAny(Any& rOut) throw( RuntimeException
 }
 void SAL_CALL OComponent::testinout_methodSequence(Sequence< sal_Int32 >& rOut) throw( RuntimeException)
 {
+    sal_Int32* arr= rOut.getArray();
     for ( sal_Int32 i=0; i < rOut.getLength(); i++)
     {
         rOut.getArray()[i] += 1;
@@ -775,6 +871,25 @@ void SAL_CALL OComponent::testinout_methodXInterface( Reference< XInvocation >&
         OUString string(L" this string was written in the UNO component to the inout pararmeter");
         any <<= string;
         rOut->setValue( OUString(L"value"), any);
+
+        any= rOut->getValue( OUString( L"value"));
+        any >>= _s;
+
+}
+
+void SAL_CALL OComponent::testinout_methodXInterface2( Reference< XInterface > & rOut) throw( RuntimeException)
+{
+    Reference<XTestSequence> xTest( rOut, UNO_QUERY);
+    if( xTest.is())
+    {
+        Any any= xTest->getAttrAny2();
+        OUString _s;
+        any >>= _s;
+        OUString string= _s + OUString((L" this string was written in the UNO component to the inout pararmeter"));
+        any <<= string;
+        xTest->setAttrAny2( any);
+    }
+
 }
 Any SAL_CALL OComponent::methodAnyTest1(const Any& rIn) throw( RuntimeException )
 {
@@ -862,6 +977,7 @@ void SAL_CALL OComponent::out_methodByte(sal_Int8& rOut) throw( RuntimeException
 {
     rOut= 100;
 }
+
 void SAL_CALL OComponent::out_methodDouble(double& rOut) throw( RuntimeException )
 {
     rOut= 3.14;
diff --git a/extensions/test/ole/cpnt/makefile.mk b/extensions/test/ole/cpnt/makefile.mk
index 8e3e6a5835ef..5782ee146907 100644
--- a/extensions/test/ole/cpnt/makefile.mk
+++ b/extensions/test/ole/cpnt/makefile.mk
@@ -2,9 +2,9 @@
 #
 #   $RCSfile: makefile.mk,v $
 #
-#   $Revision: 1.2 $
+#   $Revision: 1.3 $
 #
-#   last change: $Author: jl $ $Date: 2001-06-27 06:57:32 $
+#   last change: $Author: jl $ $Date: 2001-12-03 13:57:38 $
 #
 #   The Contents of this file are made available subject to the terms of
 #   either of the following licenses
@@ -93,11 +93,14 @@ UNOTYPES= oletest.XTestSequence oletest.XTestStruct	\
     oletest.XSimple					\
     oletest.XSimple2				\
     oletest.XSimple3				\
+    oletest.XTestOutParameters	\
+    oletest.XTestInParameters	\
     com.sun.star.beans.PropertyAttribute	\
     com.sun.star.uno.XAggregation		\
     com.sun.star.lang.XTypeProvider		\
     com.sun.star.lang.XMultiServiceFactory	\
     com.sun.star.lang.XSingleServiceFactory		\
+    com.sun.star.lang.XEventListener	\
     com.sun.star.registry.XRegistryKey	\
     com.sun.star.script.XInvocation	\
     com.sun.star.reflection.XIdlReflection	
diff --git a/extensions/test/ole/idl/oletest.idl b/extensions/test/ole/idl/oletest.idl
index c2f2ecab426f..4cbcd0b32612 100644
--- a/extensions/test/ole/idl/oletest.idl
+++ b/extensions/test/ole/idl/oletest.idl
@@ -2,9 +2,9 @@
  *
  *  $RCSfile: oletest.idl,v $
  *
- *  $Revision: 1.4 $
+ *  $Revision: 1.5 $
  *
- *  last change: $Author: jl $ $Date: 2001-06-27 06:56:49 $
+ *  last change: $Author: jl $ $Date: 2001-12-03 13:57:04 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -133,6 +133,7 @@ interface XTestSequence: com::sun::star::uno::XInterface
     void testinout_methodSequence( [inout] sequence< long > rOut);
     void testinout_methodSequence2( [inout] sequence < sequence< long > > rOut);
     void testinout_methodXInterface( [inout] com::sun::star::script::XInvocation rOut);
+    void testinout_methodXInterface2( [inout] com::sun::star::uno::XInterface rOut);
 
     any methodAnyTest1( [in] any rIn);
     [attribute]  any AttrAny2;
@@ -151,6 +152,7 @@ interface XTestStruct: com::sun::star::uno::XInterface
 interface XTestOutParameters: com::sun::star::uno::XInterface
 {
     void out_methodByte( [out] byte rOut );
+    void out_methodFloat( [out] float rOut);
     void out_methodDouble( [out] double rOut);
     void out_methodBool( [out] boolean rOut);
     void out_methodShort( [out] short rOut);
@@ -162,19 +164,38 @@ interface XTestOutParameters: com::sun::star::uno::XInterface
     void out_methodAny  ( [out] any rOut);
     void out_methodSequence( [out] sequence< long > rOut);
     void out_methodSequence2( [out] sequence < sequence< long > > rOut);
-
     void out_methodMulParams1( [out] long rout1, [out] long rout2);
     void out_methodMulParams2( [out] long rout1, [out] long rout2, [out] string rout3);
     void out_methodMulParams3( [in] string sin, [out] string sout);
 
 
 };
-
 struct SimpleStruct
 {
     string message;
 };
 
+interface XTestInParameters: com::sun::star::uno::XInterface
+{
+    byte in_methodByte( [in] byte rIn );
+    float in_methodFloat( [in] float rIn);
+    double in_methodDouble( [in] double rIn);
+    boolean in_methodBool( [in] boolean rIn);
+    short in_methodShort( [in] short rIn);
+    unsigned short in_methodUShort( [in] unsigned short rIn);
+    long in_methodLong( [in]  long rIn);
+    unsigned long in_methodULong( [in] unsigned long rIn);
+    string in_methodString( [in] string rIn);
+    char in_methodChar( [in] char rIn);
+    any in_methodAny    ( [in] any rIn);
+    com::sun::star::script::XInvocation in_methodInvocation( [in] com::sun::star::script::XInvocation inv);
+    SimpleStruct in_methodStruct( [in] SimpleStruct aStruct);
+    void in_methodAll( [in] byte b, [in] float f, [in] double d, [in] boolean bool, [in]short sh,
+                       [in] unsigned short us, [in] long l, [in] unsigned long ul,
+                       [in] string s, [in] char c, [in] any a, [in] com::sun::star::script::XInvocation inv);
+};
+
+
 enum SimpleEnum
 {
     A,
@@ -285,7 +306,6 @@ interface XCallback: com::sun::star::uno::XInterface
 
 };
 
-
 interface XTestInterfaces: com::sun::star::uno::XInterface
 {
     // Any test