Public Class TreeViewEx
    ''' <summary>
    '''2024 04 17 CZH 注释 ///可释放出来
    ''' </summary>
    ''' <param name="e"></param>
    'Protected Overrides Sub WndProc(ByRef m As Message)
    '    If m.Msg = &H203 Then
    '        Dim tvhti As TreeViewHitTestInfo = HitTest(New Point(CType(m.LParam, Integer)))
    '        If tvhti IsNot Nothing AndAlso tvhti.Location = TreeViewHitTestLocations.StateImage Then
    '            m.Result = IntPtr.Zero
    '            tvhti.Node.Checked = Not tvhti.Node.Checked
    '            Return
    '        End If
    '    ElseIf m.Msg = &H204 Then
    '        Dim tvhti As TreeViewHitTestInfo = HitTest(New Point(CType(m.LParam, Integer)))
    '        If tvhti IsNot Nothing Then
    '            SelectedNode = tvhti.Node
    '        End If
    '    End If
    '    Console.WriteLine(m.Msg)
    '    MyBase.WndProc(m)
    'End Sub

    Public Sub PerformAfterCheck(e As TreeViewEventArgs)
        OnAfterSelect(e)
    End Sub

    Public Sub PerformNodeMouseDoubleClick(e As TreeNodeMouseClickEventArgs)
        OnNodeMouseDoubleClick(e)

    End Sub
End Class