Public Sub BtnDetecta_Click() Dim o As Object For Each o In panel1.children If o Is Form Then Message("Ahora está el " & o.name) Break Endif Next End