VCPCtlSetLabel
void VCPCtlSetLabel(Word id, char *s);
//ENDH
/*****************************************************
	Sets the label of a control and make it
        visible.

       id = user defined id of the field
	s = new label

******************************************************/
void VCPCtlSetLabel(Word id, char *s)
{
	FormPtr formp;
	FieldPtr fp;

	formp=FrmGetActiveForm();
	fp=FrmGetObjectPtr(formp,FrmGetObjectIndex(formp,id));
	CtlShowControl((ControlPtr)fp);
	CtlSetLabel((ControlPtr)fp, s);
}
