VCPCtlEraseControl
void VCPCtlEraseControl(Word id);
//ENDH
/*****************************************************
	Erases the control from the screen and
        sets usable to False

       id = user defined id of the field

******************************************************/
void VCPCtlEraseControl(Word id)
{
	FormPtr fp;

	fp=FrmGetActiveForm();
	CtlEraseControl(FrmGetObjectPtr(fp, FrmGetObjectIndex(fp, id)));
}
