nel form 1 :
codice:
Public blShow As Boolean


Private Sub Form_Unload(Cancel As Integer)
    If Not Form2 Is Nothing Then
        Unload Form2
    End If
End Sub

Private Sub Text3_GotFocus()
    If Not blShow Then
        Form2.Show
        Form2.Text1.SetFocus
        blShow = True
    Else
        blShow = False
    End If
    
End Sub
Nota il codice nel Form_Unload del form1. Se manca ti resta attiva l'applicazione anche se
chiudi il form1.