'Treeview mit Controls-Referenzen füllen ... 
'CTL-Text als Key/Name der Nodes
With TreeView1.Nodes
   .Add(Button1.Text, Button1.Text)
   .Add(Button2.Text, Button2.Text)
   .Add(Button3.Text, Button3.Text)
End With
 
'============================================
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, _
     ByVal e As System.Windows.Forms.TreeViewEventArgs) _
     Handles TreeView1.AfterSelect
 
     For Each c As Control In Me.Controls
        If c.Name = e.Node.Name Then
           '1 Parameter = Parent-Formular-Referenz
           DrawFrame(Me, c, Color.Red)
        Else
           DrawFrame(Me, c, Me.BackColor)
        End If
     Next c
End Sub
 
Private Sub DrawFrame(ByVal f As Form, ByVal ctl As Control, _
                      ByVal cl As Drawing.Color)
 
    If f IsNot Nothing AndAlso ctl IsNot Nothing Then
       Using p As New Pen(cl, 6.0), _
          g As Graphics = f.CreateGraphics
 
          Dim rct As Rectangle = _
          New Rectangle(ctl.Location, ctl.Size)
 
          g.DrawRectangle(p, rct)
          ctl.Refresh()
       End Using
   End If
End Sub