Sub SetDisplay
' Msgbox("width: " & form1.Width & CRLF & "height: " & form1.Height)
Select form1.Width
Case 240
ScaleW=1
Case 320
ScaleW=1.5
Case 480
ScaleW=2
End Select
Select form1.Height+52
Case 320
ScaleH=1
Case 400
ScaleH=1.5
Case 640
ScaleH=2
Case 800
ScaleH=2.5
End Select
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 = scaleW * Control(Controls(i)).Left
Control(Controls(i)).Top = scaleH * Control(Controls(i)).Top
Control(Controls(i)).Height = scaleH * Control(Controls(i)).Height
Control(Controls(i)).Width = scaleW * Control(Controls(i)).Width
'*** Uncomment these lines if your application includes Tables.
' If ControlType(Controls(i)) = "Table" Then
' tbl = Controls(i)
' For i2 = 0 To Control(tbl,Table).ColCount-1
' col = Control(tbl,Table).ColName(i2)
' Control(tbl,Table).ColWidth(col) = Control(tbl,Table).ColWidth(col) * 2
' Next
' End If
End Select
Next
End Sub