codice:
sub Leggi() 

Dim newForm1 as Form1
newForm1.text1.text="prova" 
end sub