[Filippo]

Hi digitaldon37,

I have a mistake in the procedure found ChangeToVGA.
Please change the procedure this way:

Sub ChangeToVGA
'Handles resolutions of 480 * 640
Controls() = GetControls("")

For i = 0 To ArrayLen(Controls()) - 1
Crttype=ControlType(Controls(i))
If Crttype = "CheckBox" OR Crttype = "TextBox" OR Crttype = "Label" OR Crttype = "Button" OR Crttype = "Panel" OR Crttype = "Image" OR Crttype = "ComboBox" OR Crttype = "ImageButton" OR Crttype = "RadioBtn" Then
Control(Controls(i)).Left = 2 * Control(Controls(i)).Left
Control(Controls(i)).Top = 2 * Control(Controls(i)).Top
Control(Controls(i)).Height = 2 * Control(Controls(i)).Height
Control(Controls(i)).Width = 2 * Control(Controls(i)).Width
If Not(cPPC) Then
Control(Controls(i)).FontSize = 2 * Control(Controls(i)).FontSize
'There is no need to change the font size on the VGA device.
End If
End If
Next
' VScroll.Left = 2 * VScroll.Left
' VScroll.Top = 2 * VScroll.Top
' VScroll.Height = 2 * VScroll.Height
' VScroll.Width = 2 * VScroll.Width
' VScroll.Maximum = 2 * VScroll.Maximum
' VScroll.LargeChange = 2 * VScroll.LargeChange
' VScroll.SmallChange = 2 * VScroll.SmallChange
End Sub

and so these lines:

VScroll.New1("pnlLocations",210 * scale,0,15 * scale,125 * scale,True)
VScroll.Minimum=0
VScroll.Maximum=150 * scale
VScroll.LargeChange=25 * scale
VScroll.SmallChange=25 * scale

Ciao,
Filippo