Массштабирование формы и контролов под нужное разрешение - VB

Формулировка задачи:

Не могу понять сделал форму, а именно сделал картинки нужных размеров, расположил овалы там где надо. И у меня на буке все ОК. Пришел на работу принес прогу доработать, запускаю а у меня все поехало, часть картинок не видно (они увеличились), овалы сместились. Обидно, как сделать чтобы на всех компах было одинаково??? Мистика какая то...

' Построение овалов
Me.Show
     Me.FillStyle = 0
     Me.FillColor = vbGreen
     Me.AutoRedraw = True
     Scale (-20, -20)-(20, 20)
     Circle (-15.7, 10.7), 2, vbBlack, , , 0.5 
     Circle (-8.4, 10.7), 2, vbBlack, , , 0.5
     Circle (-1.1, 10.7), 2, vbBlack, , , 0.5
     Circle (6.5, 10.7), 2, vbBlack, , , 0.5
     Circle (14, 10.7), 2, vbBlack, , , 0.5

Решение задачи: «Массштабирование формы и контролов под нужное разрешение»

textual
                            Листинг программы 
                        

                            Dim w As Single, h As Single
 
Private Sub Form_Load()
h = Height: w = Width
End Sub
 
Private Sub Form_Resize()
On Error GoTo err
If Height > 2000 And Width > 3000 Then
Call rsz(w, h)
h = Height: w = Width
Else
Height = 2000: Width = 3000
End If
Exit Sub
err: MsgBox err.Description
err.Clear
End Sub
 
Sub rsz(w, h)
Dim w1 As Single, h1 As Single
w1 = Width / w: h1 = Height / h
 
Dim Cont As Control
 
On Error Resume Next
    For Each Cont In Controls
      With Cont
.Move .Left * w1, .Top * h1, .Width * w1, .Height * h1
      End With
    Next
End Sub
                        