Get the release version as an integer value.
VB6/VBA
Debug.Print "Testing PKI_Version ..."
Dim nRet As Long
nRet = PKI_Version(0, 0)
Debug.Print "PKI_Version returns " & nRet
Output
Testing PKI_Version ... PKI_Version returns 350
VB.NET
Console.WriteLine("Testing PKI_Version ...")
Dim nRet As Integer
nRet = General.Version()
Console.WriteLine("General.Version returns " & nRet)
[Contents]