Puoi usare una funzioncina come questa:
come puoi vedere accetta la captio del form da chiudere come stringa, ovviamente se ci sono 2 form con la stessa caption li chiude entrambi.codice:Public Sub UnloadCap(Caption As String) Dim MyForm As Form For Each myform In Forms If myform.Caption = Caption Then Unload myform Next End Sub
per richiamarla basta:
dove Form1 è la Caption del form da chiuderecodice:UnloadCap "Form1"

Rispondi quotando