Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _    hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _    lParam As Any) As LongPrivate Const TV_FIRST = &H1100Private Const TVM_GETNEXTITEM = (TV_FIRST + 10)Private Const TVGN_CARET = 9' the handle of the TreeView node that is currently selected' or zero if there is no current nodeFunction GetTreeViewSelNodeHandle(ByVal TV As TreeView) As Long    ' send a message to retrieve the handle of current node    GetTreeViewSelNodeHandle = SendMessage(TV.hWnd, TVM_GETNEXTITEM, TVGN_CARET, _        ByVal 0&)End Function