小吳 VBQA 程式設計討論

Private Sub treListOfTables_NodeCheck(ByVal Node As MSComctlLib.Node)
If Node.Checked = True And Node.Children ＞= 1 Then
　　Node.Checked = False
　　MsgBox "請選擇資料表", , "錯誤"
　End if

End sub
我在treelist的Nodecheck事件裡寫了如上的程式碼
用意在於當我核選某個Node時(checked = true)　如果這個Node有children　則程式會把該Node的checked屬性設為false
之後再出現Msgbox
現在問題來了　當我選取一個具有children的node時　checked屬性的確為false　但當我按下Msgbox上的確定鈕後　checked又自動變為true　真的是百思不解　不知道有沒有人能指點迷津...謝謝...