Check and Uncheck treeview when ask for user

[mutley]

Hi

I have a treeview with checkbox , Ordered me when the user click in Checkbox of the treeview I must to ask if the user want really to check , if Answer equal yes keep checked , but if the user responds NO , I must uncheck

How can I to it ?

I tried something like

Private Sub tvLista_NodeCheck(ByVal node As MSComctlLib.node)
    
    Dim mIndAtiva As String
    Dim strSQL As String
    Dim Ds As Object
    Dim mnode As node
    Dim msgNode As String
        
    On Error GoTo ErrorHandler
    
   '----ask to user
   if anwwer is NO  
           node.CHECKED = False

But no worked

Tia