Imports System.Runtime.InteropServices
Module mdlWinAPI
    Private i As Integer = 0
    Private j As Integer = 0
    Private node As TreeNode()
 
    Public Const TVIF_STATE As Integer = &H8
    Public Const TVIS_STATEIMAGEMASK As Integer = &HF000
    Public Const TV_FIRST As Integer = &H1100
    Public Const TVM_SETITEM As Integer = TV_FIRST + 63
 
    Public Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, _
      ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function
 
    Public Structure TVITEM
        Public mask As Integer
        Public hItem As IntPtr
        Public state As Integer
        Public stateMask As Integer
 
        Public lpszText As [String]
        Public cchTextMax As Integer
        Public iImage As Integer
        Public iSelectedImage As Integer
        Public cChildren As Integer
        Public lParam As IntPtr
 
    End Structure
 
    Public Sub HideCheckBox(ByVal node As TreeNode)
        Dim tvi As New TVITEM()
        tvi.hItem = node.Handle
        tvi.mask = TVIF_STATE
        tvi.stateMask = TVIS_STATEIMAGEMASK
        tvi.state = 0
        Dim lparam As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(tvi))
        Marshal.StructureToPtr(tvi, lparam, False)
        SendMessage(frmMain.TreeView.Handle, TVM_SETITEM, IntPtr.Zero, lparam)
    End Sub
 
End Module

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TreeView.Nodes.Add("Software")
        TreeView.Nodes(0).Nodes.Add("Windows XP")
        TreeView.Nodes(0).Nodes(0).Nodes.Add("Benutzer automatisch anmelden")
        TreeView.Nodes.Add("Hardware")
        TreeView.Nodes.Add("Trinksprüche")
        TreeView.Nodes.Add("Wo ist die Toilette")
        TreeView.SelectedNode = TreeView.Nodes(0)
        HideCheckBox(TreeView.Nodes(0))
    End Sub

Public Class frmTreeNodeCheck
 
    Dim WithEvents trv As New TreeView _
        With {.Parent = Me, .Width = 200, .Height = 200}
 
    Dim checked As String = "checked"
    Dim unchecked As String = "unchecked"
 
 
    Private Sub frmTreeNodeCheck_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        trv.DrawMode = TreeViewDrawMode.OwnerDrawText 'Owner draws Node
 
        'Some Nodes
        Dim tn As TreeNode = trv.Nodes.Add("Node A")
        tn.Nodes.Add("Node A1")
        tn.Nodes.Add("Node A2").Tag = unchecked 'checkable Node
 
        tn = trv.Nodes.Add("Node B")
        tn.Nodes.Add("Node B1")
        tn.Nodes.Add("Node B2").Tag = unchecked 'checkable Node
 
    End Sub
 
 
    Private Sub trv_DrawNode(sender As Object, _
        e As System.Windows.Forms.DrawTreeNodeEventArgs) Handles trv.DrawNode
 
        If e.Node.Tag Is Nothing Then
            e.DrawDefault = True  'System draws Node; it's uncheckable
        Else
            e.Graphics.FillRectangle _
               (New SolidBrush(trv.BackColor), e.Bounds)
 
            With e.Bounds
                Using p As New Pen(trv.ForeColor),
                    br As New SolidBrush(trv.ForeColor)
                    'Circle to Check
                    Dim r As New Rectangle(.Location, _
                    New Size(.Height - 4, .Height - 4))
 
                    If DirectCast(e.Node.Tag, String) = checked Then
                        'Node is checked
                        e.Graphics.FillEllipse(br, r)
                    Else
                        e.Graphics.DrawEllipse(p, r)
                    End If
 
                    e.Graphics.DrawString(e.Node.Text, trv.Font, _
                        br, New Point(.X + 4 + .Height, .Y + 2))
 
                End Using
            End With
        End If
    End Sub
 
 
    Private Sub trv_MouseDown(sender As Object, _
        e As System.Windows.Forms.MouseEventArgs) Handles trv.MouseDown
 
        Dim hti As TreeViewHitTestInfo = trv.HitTest(e.Location)
 
        With hti
            If .Node Is Nothing Then Exit Sub 'No Node available
            If .Node.Tag Is Nothing Then Exit Sub 'uncheckable Node
 
            If DirectCast(.Node.Tag, String) = checked Then
                .Node.Tag = unchecked
            Else
                .Node.Tag = checked
            End If
 
            trv.Invalidate(.Node.Bounds)
        End With
    End Sub
 
End Class