'''' FORM1 ''''

Option Explicit
Public prova As String

Private Sub Command1_Click()
Form2.Visible = True
Form1.Visible = False
prova = "questa è la varibile"

End Sub

'''' FORM2 ''''

Private Sub Form_Load()

Text1.Text = FORM1.prova
End Sub