Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As LongPrivate Const WM_SETREDRAW As Long = &HBPrivate Const TV_FIRST As Long = &H1100Private Const TVM_GETNEXTITEM As Long = (TV_FIRST + 10)Private Const TVM_DELETEITEM As Long = (TV_FIRST + 1)Private Const TVGN_ROOT As Long = &H0' Quicky clear the treeview identified by the hWnd parameterSub ClearTreeViewNodes(ByVal hwnd As Long) Dim hItem As Long ' lock the window update to avoid flickering SendMessageLong hwnd, WM_SETREDRAW, False, &O0 ' clear the treeview Do hItem = SendMessageLong(hwnd, TVM_GETNEXTITEM, TVGN_ROOT, 0) If hItem <= 0 Then Exit Do SendMessageLong hwnd, TVM_DELETEITEM, &O0, hItem Loop ' unlock the window SendMessageLong hwnd, WM_SETREDRAW, True, &O0End Sub

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