lcVals = "" If This.Object.Document.forms.Length > 0 For Each oFrm In This.Object.Document.forms lcVals = lcVals + oFrm.Name + Chr(13) If oFrm.elements.Length > 0 For Each oElem In oFrm.elements If oElem.Type = "select-multiple" lcList='' For ix=0 To oElem.Length-1 If oElem.Item(ix).Selected lcList = lcList + Iif(Empty(lcList),'',',')+; oElem.Item(ix).Value Endif Endfor lcVals = lcVals + "Name :" + oElem.Name + ; "/Value:"+lcList + Chr(13) Else lcVals = lcVals + "Name :" + oElem.Name + ; "/Value:"+oElem.Value + Chr(13) Endif oElem = .Null. Endfor Endif oFrm = .Null. Endfor EndifCetin