Within Visual Basic 6, select Project > Components, then Browse for the .dll of the wrapper object in order to include the objects definition in the project.

For details about the object parameters, see Sample IDL Object.

Initiation Without Parameters in Visual Basic 6

---

Use the following code to initialize the object with no parameters.

Private Sub MyRoutine

  Dim oFoo As IDLexFoo

  Set oFoo = New IDLexFoo

  On Error GoTo ErrorHandler

  oFoo.CreateObject 0, 0, 0

  ' use object here...

  Return

  ErrorHandler:

  If Not oFoo Is Nothing Then

  Debug.Print oFoo.GetLastError

  End If

End Sub

Initiation with Parameters in Visual Basic 6

---

Use the following code to initialize the object with its three parameters (a string, a 32-bit long value, and an array which has two rows and three columns, containing 32- bit long values).

Const PARMFLAG_CONST As Integer = &H1

Const PARMFLAG_CONV_MAJORITY As Integer = &H4000

Private Sub MyRoutine

  Dim oFoo As IDLexFoo

  Dim parmStr As String

  Dim parmVal As Long

  Dim parmArr(1, 2) As Long

  Dim argc As Long

  Dim argv(2) As Variant

  Dim argpal(2) As Long

  parmStr = "I am a string parameter"

  parmVal = 24

  parmArr(0, 0) = 10: parmArr(0, 1) = 11: parmArr(0, 2) = 12

  parmArr(1, 0) = 20: parmArr(1, 1) = 21: parmArr(1, 2) = 22

  argc = 3

  argv(0) = parmStr: argpal(0) = PARMFLAG_CONST

  argv(1) = parmVal: argpal(1) = PARMFLAG_CONST

  argv(2) = parmArr: argpal(2) = PARMFLAG_CONST + _PARMFLAG_CONV_MAJORITY

  Set oFoo = New IDLexFoo

  On Error GoTo ErrorHandler

  oFoo.CreateObject argc, argv, argpal

  ' use object here...

  Return

  ErrorHandler:

  If Not oFoo Is Nothing Then

  Debug.Print oFoo.GetLastError

  End If

End Sub