Returns the ASCII value of the licence type.
VB6/VBA
Debug.Print "Testing API_LicenceType ..."
Dim nRet As Long
nRet = API_LicenceType(0)
Debug.Print "API_LicenceType is " & Chr(nRet)
Output
Testing API_LicenceType ... API_LicenceType is D
VB.NET
Console.WriteLine("Testing API_LicenceType ...")
Console.WriteLine("API_LicenceType is " & General.LicenceType)
[Contents]