Very interesting... Cableguy can you upload a zip file with a complete example?
About the font size, you could use the new GetControls and ControlType keywords to change the font of all the controls.
Code:
Sub Globals
'Declare the global variables here.
Dim ctrls(0)
End Sub
Sub App_Start
Form1.Show
ctrls() = GetControls("")
For i = 0 To ArrayLen(ctrls())-1
Control(ctrls(i)).FontSize = 5
Next
End Sub