' 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)