Return the licence type.
VB6/VBA
Debug.Print "Testing PKI_LicenceType ..."
Dim nRet As Long
nRet = PKI_LicenceType(0)
Debug.Print "PKI_LicenceType is " & Chr(nRet)
Output
Testing PKI_LicenceType ... PKI_LicenceType is D
VB.NET
Console.WriteLine("Testing PKI_LicenceType ...")
Dim chr As Char
chr = General.LicenceType()
Console.WriteLine("PKI_LicenceType is " & chr)
[Contents]