VCPFldSetUnderlined
void VCPFldUnderlinedText(Word id, UInt val);
//ENDH
/*****************************************************
    Set the underlined attribute of a field in the
    actual form.

    id = user defined id of the field
    val = TRUE or FALSE


******************************************************/
void VCPFldSetUnderlined(Word id, UInt val)
{
	FormPtr frmp;
	FieldPtr fldp;
	FieldAttrType fa;

	frmp=FrmGetActiveForm();
	fldp=FrmGetObjectPtr(frmp, FrmGetObjectIndex(frmp, id));
	FldGetAttributes(fldp, &fa);
	fa.underlined=val;
	FldSetAttributes(fldp, &fa);
	FldDrawField(fldp);
}
