ViewLicense Method
Applies To
BasicTcl Object, AdvancedTcl Object
Prototype
ViewLicense() 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 display the "License Viewer". If the license is invalid, the "License Viewer" is not displayed.
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.ViewLicense

    Set poTcl = Nothing
End Sub