Public Class Form1
    Dim WithEvents T As New Timer With {.Enabled = True}
    Dim Btn1 As New Button With {.Name = "Btn1", .Text = "Btn1", .Parent = Me}
    Dim Pnl1 As New Panel With {.Dock = DockStyle.Bottom, .Height = 180, _
      .BackColor = Color.Aqua, .Parent = Me}
    Dim Btn2 As New Button With {.Name = "Btn2", .Text = "Btn2", .Parent = Pnl1}
    Dim Pnl2 As New Panel With {.Dock = DockStyle.Bottom, .Height = 100, _
      .BackColor = Color.Beige, .Parent = Pnl1}
    Dim Btn3 As New Button With {.Name = "Btn3", .Text = "Btn3", .Parent = Pnl2}
    Private Sub T_Tick(sender As Object, e As System.EventArgs) Handles T.Tick
        Me.Text = ActiveControl.Name
    End Sub
End Class