Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _ hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As LongType RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Const TV_FIRST = &H1100Private Const TVM_GETITEMRECT = (TV_FIRST + 4)' Return the binding rectangle for the TreeView item whose' handle is passed in the second argument. If the 3rd argument' is True it returns the bounding rectangle for the text portion' of the node, otherwise it returns the bounding rectangle for' the entire row.'' The result rectangle isn't clipped to the TreeView's visibile portion' Coordinates are relative to the TreeView's client area'' You can use this routine to determine the node under the mouse ' cursor, or to precisely move a textbox or a combobox over a given node.Function GetTreeViewNodeRect(ByVal TV As TreeView, ByVal hItem As Long, _ Optional IncludeTextOnly As Boolean) As RECT Dim lpRect As RECT ' the function expects in input the handle of the item ' at the beginning of the RECT structure lpRect.Left = hItem If SendMessage(TV.hWnd, TVM_GETITEMRECT, IncludeTextOnly, lpRect) Then ' a non-zero value means that the item is visible GetTreeViewNodeRect = lpRect End IfEnd Function

Top Careers at Microsoft
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job