[VB 6.0]Come chiudere programma se già aperto

[StegcO]

Private Sub Form_Unload(Cancel As Integer)

If Forms.Count > 1 Then ScaricaTutteLeForm
    
End Sub

Private Sub ScaricaTutteLeForm()

Dim frm As Form
For Each frm In Forms
    If Not frm.Name = Me.Name Then Unload frm
Next frm

End Sub