Utilizzare anche in altre subroutine un Oggetto grafico dichiarato localmente

E' possibile utilizzare anche in altre subroutine un Oggetto grafico dichiarato localmente e posto, come "Figlio", sul Form.

Nella subroutine, diversa da quella ove l'Oggetto grafico è stato dichiarato e creato, va dichiarato localmente un Oggetto grafico del medesimo tipo.
Ad esso va assegnato quanto ritornato dall'istruzione: Me["nome_variabile_dell'Oggetto "] .

Vediamo un semplice esempio pratico:

Public Sub Form_Open()

 Dim Button1 As New Button(Me) As "Button1"

 With Button1
   .W = Me.w * 0.3
   .H = Me.H * 0.1
   .X = (Me.W / 2) - (.W / 2)
   .Y = (Me.H / 2) - (.H / 2)
 End With

End


Public Sub Button1_Click()

 Dim bt As Button = Me["Button1"]

 bt.Move(Me.W - bt.W, bt.Y)

End