'''' 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
'''' 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