Private Sub TreeView1_AfterSelect(sender As System.Object, e As _
      System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim tn As TreeNode = e.Node
        Dim cOutline As Control = Nothing
        Dim selection As Rectangle = Rectangle.Empty
 
        For Each c As Control In Form2.Controls
            If c.Name = tn.Name Then
                cOutline = c
                Exit For
            End If
        Next
 
        If Not cOutline Is Nothing Then
            Dim p As New Pen(Color.Red, 6.0)
            Dim g As Graphics = tmpform.CreateGraphics
 
            Dim rct As Rectangle = New Rectangle(cOutline.Location, _
              cOutline.Size)
 
            g.DrawRectangle(p, rct)
 
            p.Dispose()
            g.Dispose()
        End If
    End Sub