Niente da fare, mi da errore quando metto:

Set gest = Form1

nel senso che intanto in automatico mi toglie il Set, quindi mi indica errore dicendo che un tipo non pùò essere utilizzato come espressione