Imports System.Drawing
Imports System.ComponentModel
 
<DesignerCategory("Code")> Public Class clsMyTreeView
    Inherits TreeView
 
    Public Property HighestId As Long
    Public Property MaxHeightOfANode As Double
 
    Protected Overrides Sub OnDrawNode(ByVal e As DrawTreeNodeEventArgs)
        MyBase.OnDrawNode(e)
        Dim ActualNode As clsMyTreeNode = e.Node
        'My Treenode with the necessary properties
 
        If ActualNode.IsPictureShown = True Then
            'Paint it with the given ImageIndex
        Else
            'Don't paint it
        End If
 
        If ActualNode.IsCheckable = True Then
            If ActualNode.IsChecked Then
                'Paint the checked Checkbox
            Else
                'Paint the unchecked Checkbox
            End If
        End If
 
        'Just draw the text
        e.Graphics.DrawString(ActualNode.Text, Me.Font, Brushes.Black, New _
          Point(e.Bounds.X + e.Bounds.Height + (15 * ActualNode.Level), _
          e.Bounds.Y))
    End Sub
 
 
End Class