6 42 1 VB Example

LANSA Open Guide

6.42.1 VB Example

    Dim sBuff As String

    sBuff = String(FIELD_DATA_SIZE, Chr(0)) ' set buffer

iRet = LceGetVariable (iSession "*COMPANY", Company)

Form.Caption = Company