Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Private Const TV_FIRST = &H1100 Private 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 node Function 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 |