la tua sub che disegna hai provato a farla così

sub Disegna(frmCaller as form)
'----
end sub

e quando la chiami dal pulsante

call Disegna(Me)