‘ Clear the IE’s HistorySub ClearIEHistory() Dim keyName As String = “SoftwareMicrosoftInternet ExplorerTypedURLs” ‘ delete the key that contains the URLs the history Microsoft.Win32.Registry.CurrentUser.DeleteSubKey(keyName, False) ‘ recreate the key, empty
‘ Get the path of a Windows application or an empty string if the application ‘ isn’t registered” This routine only works for those applications that register themselves under ‘
‘ 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)
‘ 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
‘ 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,
‘ 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
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