frmExplore.tvExample_NodeClick(INode Node = String Manipulation) 
 -> 111      Select Case Node.Text
 -> Case "Algorithms"
 -> 114        Case "Paint Picture"
 -> 117        Case "Graphics"
 -> 120        Case "String Manipulation"
 -> 121          Strings.Show
	Strings.Form_Load()
	 -> 77       PosForm Me
		Global.PosForm(Strings frmForm = Strings) 
		 -> 138      frmForm.Left = frmExplore.Left + frmExplore.Width
		 -> 139      frmForm.Top = frmExplore.Top
		 -> Exit Sub
	 -> 78       txtCounter = 10000
	 -> 79       txtCount2 = 1000
	 -> Exit Sub
 -> 122          Strings.SetFocus
 -> 143        End Select
 -> 144      DoEvents
 -> Exit Sub
Strings.cmdFiles_Click(Index = 1) 
 -> 11         ReDim allrecs(txtCount2)
 -> 12         Me.MousePointer = 11
 -> 13         For x = 1 To txtCount2
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 14             allrecs(x).ID = x
 -> 15             allrecs(x).Name = "John Doe - Generic Person"
 -> 16         Next x
 -> 17         Kill App.Path & "\" & "files.out"
 -> 18         If Index = 0 Then
 -> 20         Else
 -> 21             Open App.Path & "\" & "files.out" For Binary As #1
 -> 22         End If
 -> 23         start# = Timer
 -> 24         For x = 1 To txtCount2
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 25            Put #1, , allrecs(x)
 -> 26         Next x
 -> 27         Seek #1, 1