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