Caption = (CHR(195))
=CHR(x)
and ="Some string"
#Define CR Chr(13) ** set those with CHR(x) in label expression to empty caption Update theForm.scx ; set Properties=StrTran(properties, ; "Caption = ("+StrExtract(properties, "Caption = (",CR), ; [Caption = ""]) ; where baseclass="label" ; and "CHR(" $ Upper(StrExtract(properties, "Caption = (",CR)) ** set those with ="Some string" to just "Some string" Update theForm.scx ; set Properties=StrTran(properties, ; "Caption = ("+StrExtract(properties, "Caption = (",")"+CR)+")"+CR, ; [Caption = ]+StrExtract(properties, "Caption = (",")"+CR)+CR) ; where baseclass="label" ; and "Caption = (" $ properties USE in theForm Modify Form theForm nowait