|
AddReference Function
|
|
|
Prototype
|
Public Declare Function AddReference Lib "TclBridge.dll" (poObj As Object) As Long
|
|
Input
|
The "poObj" parameter, which is the object to call "AddRef" on.
|
|
Output
|
None.
|
|
Returns
|
A standard COM automation HRESULT (long integer).
|
|
COM Results
|
Not applicable.
|
|
Side Effects
|
A COM reference is added to the object.
|
|
Description
|
None.
|
|
Notes
|
The declaration for this function is in the "TclBridgeSupport" (TCLBSUPT.BAS) module.
|
|
Example
|
Private Sub Command1_Click()
Dim plResult As Long plResult = AddReference(Me) ' the result will be >= 0 to indicate success... plResult = ReleaseReference(Me) ' the result will be >= 0 to indicate success... MsgBox "The result is: (" & plResult & ", " & pvResult & ")", vbInformation, App.Title End Sub |