6 81 1 VB Example

LANSA Open Guide

6.81.1 VB Example

' get Version

dim l as long, dVer as double

' get version

l = LceVersion(False, 0)

' extract major / minor version and set in m.nn format 

dVer = l \ &H10000 + ((l Mod &H10000) \ 100) / 100 

lbLansaVer.caption = str(dVer)