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


GM Creates Open Source uProtocol and Invites Automakers to Adopt It: Revolutionizing Automotive Software Development.
General Motors (GM) recently announced its entry into the Eclipse Foundation. The Eclipse Foundation is a prominent open-source software foundation. In addition, GMC announced its contribution of “uProtocol” to facilitate