Ciao corrado,
Ho modificato lo screen size a 640 x 480
ma, rimane tutto come prima. Inoltro ho notato che il testo delle label viene
troncato a 17 caratteri.
Modificando lo screen size non si risolve in questo caso niente.
Per ottenere quello che vuoi tu, si devono modificare tutti i controlli.
1) Aggiungi nel "Sub App_Start"
If form1.Height > 400 Then
ChangeToVga
End If
2) Aggiungi questo "Sub"
Sub ChangeToVGA
Controls() = GetControls("")
For i = 0 To ArrayLen(Controls())-1
Select ControlType(Controls(i))
Case "ListBox","NumUpDown","Button","TextBox","Label","ComboBox","Panel","RadioBtn","Table","ImageButton","CheckBox","Image"
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
End Select
Next
End Sub