Dim sBuff As String
    sBuff = String(FIELD_DATA_SIZE, Chr(0)) ' set buffer
iRet = LceGetVariable (iSession "*COMPANY", Company)
Form.Caption = Company