A me era stato consigliato questo codice:
Public F1 As Boolean
Form3.F1 io non posso accedere al variabile così
Form. mi dà l'elenco delle proprietà non delle variabili
o sbaglio qualcuno mi può spiegare!!!
----------------------------------------------------------------------
Creara un Command Button in Form1 e Form2 di nome Command1.
Codice in Form1:
Private Sub Command1_Click()
Form3.Show
Form3.F1 = True
End Sub
Private Sub Form_Load()
Form2.Show
End Sub
Codice in Form2:
Private Sub Command1_Click()
Form3.Show
End Sub
Codice in Form3:
Public F1 As Boolean
Private Sub Form_Unload(Cancel As Integer)
If F1 Then
Form1.SetFocus
Else
Form2.SetFocus
End If
End Sub
----------------------------------------------------------------------