Уважаемые программисты, помогите (MS Visual Basic 6.0)

Форма, на форму кидаем Combo1
Копируем текст в форму:
(дополнительно сверяемся с картинкой внизу, тк текст в html может исказиться)

Option Explicit

Const dimX& = 100
Const dimY& = 100

Private Sub Form_load()
Combo1.AddItem "Россия": Combo1.AddItem "Израиль"
Combo1.ListIndex = 0
End Sub
Private Sub Combo1_Click(): wm_paint: End Sub
Private Sub Form_Paint(): wm_paint: End Sub
Private Sub Form_Resize(): wm_paint: End Sub

Sub wm_paint()
If Me.WindowState = 1 Then Exit Sub 'окно свернуто?
Me.Cls
Me.Scale (0, dimY)-(dimX, 0) 'координаты X=0..100, Y=0..100
If 1 = Combo1.ListIndex Then
flagIL
Else
flagRU
End If
End Sub

Sub flagRU()
Dim y#
y = dimY / 3
Line (0, 0)-(dimX, y), vbRed, BF
Line (0, y)-(dimX, 2 * y), vbBlue, BF
Line (0, 2 * y)-(dimX, 3 * y), vbWhite, BF
End Sub

Sub flagIL()
Dim x#, y#, a#, b#, k#
y = dimY / 8
Line (0, 0)-(dimX, dimY), vbWhite, BF
Line (0, y)-(dimX, 1.8 * y), vbBlue, BF
Line (0, dimY - y)-(dimX, dimY - 1.8 * y), vbBlue, BF
'-
Me.DrawWidth = Me.Height / 500 'ш.линии
polar 45, 19, 50, 50, x, y
polar 90 + 45, 19, 50, 50, a, b
Line (x, y)-(a, b), vbBlue
polar 135 + 90 + 45, 19, 50, 50, x, y
Line (a, b)-(x, y), vbBlue
polar 45, 19, 50, 50, a, b
Line (x, y)-(a, b), vbBlue
'-
polar 90, 19, 50, 50, x, y
polar 135 + 90, 19, 50, 50, a, b
Line (x, y)-(a, b), vbBlue
polar -45, 19, 50, 50, x, y
Line (a, b)-(x, y), vbBlue
polar 90, 19, 50, 50, a, b
Line (x, y)-(a, b), vbBlue
End Sub

Private Sub polar(angle#, r#, x#, y#, outX#, outY#)
Const k = 3.14159265 / 180 'градусы-радианы
outX = x + r * Cos(angle * k)
outY = y + r * Sin(angle * k)
End Sub