Shared Function _ SHEmptyRecycleBin(ByVal hWnd As Integer, ByVal pszRootPath As String, _ ByVal dwFlags As Integer) As IntegerEnd Function’ Empty all the files in the Recycle Bin.” If RootPath is
‘ Clear the Run History’ The MRU list is kept available until Explorer is restartedSub ClearRunHistory() Dim keyName As String = “SoftwareMicrosoftWindowsCurrentVersionExplorer” _ & “RunMRU” ‘ delete the key that
‘ Returns the nesting level of a TreeView’s Node object’ (returns zero for root nodes)Function GetNodeNestingLevel(ByVal node As TreeNode) As Integer Do Until (node.Parent Is Nothing) GetNodeNestingLevel += 1 node
‘ Show a form with an explosion effect.’ the numSteps parameter is the number of steps to increase the form size from ‘ 0 to the original size’ the stepDuration
‘ Returns a value >0 if node1 is a parent (or grandparent) of node2’ Returns a value node2.FullPath.Length Then ‘ if the two nodes belong to the same subtree, ‘
Shared Function _ GetWindowLong(ByVal hWnd As Integer, ByVal nIndex As Integer) As IntegerEnd Function Shared Function _ SetWindowLong(ByVal hWnd As Integer, ByVal nIndex As Integer, _ ByVal dwNewLong As Integer)
‘ Moves an item of a listbox to another index’ If FROMINDEX = -1 then it moves the current highlighted item’ ‘ Example:’ ‘ move up the selected item’ MoveListboxItem(ListBox1,
‘ Hiding a form with an implosion effect.’ the numSteps parameter is the number of steps to decrease the form size from ‘ the current size to 0’ the stepDuration
Global objects and objects declared in a namespace scope are constructed before main() starts. The implementation runs special startup code that constructs such objects (including cin and cout) and performs