Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For Each f As Form In My.Application.OpenForms Abilita(f, "Elimina", "Delete") Next End Sub