allora basta togliere il New
Dim gest As New Form1() = Dim gest As Form1()
e poi aggiungere
Set gest = Form1
e poi vedrai che funziona...
Ciao!