CheckLicense Method
Applies To
BasicTcl Object, AdvancedTcl Object
Prototype
CheckLicense() As Long
Input
None.
Output
None.
Returns
Non-zero if the license is valid, zero otherwise.
COM Results
S_OK: Success.
E_INVALIDARG: A NULL pointer was passed.
E_FAIL: An unexpected error was encountered.
E_OUTOFMEMORY: Not enough memory was available to complete the operation.
Side Effects
None.
Description
This method attempts to validate the component license.
Notes
This function may be implemented as a stub that immediately returns "success" in redistributable versions of the component.
Example
Private Sub Command1_Click()
    Dim poTcl As TclBridge.BasicTcl

    Set poTcl = New TclBridge.BasicTcl

    Call poTcl.CheckLicense

    Set poTcl = Nothing
End Sub