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
‘ 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, ‘
elcome back to my process of creating a new architecture. As you know, as I write this the creation process is not over, but is still ongoing. I’m changing things
‘ 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,