Графические возможности языка Visual Basic - VB

Option Explicit
Dim W As Single, H As Single, p As Object
Const PI = 3.14159265
 
Private Sub Form_Load()
    Picture1.AutoRedraw = True
    W = Picture1.Width: H = Picture1.Height
    Set p = Picture1
    p.ScaleMode = 3
    Call FlagRussia
End Sub
 
Private Sub Option1_Click(Index As Integer)
    p.Cls
    Select Case Index
           Case 1: Call FlagRussia
           Case 2: Call FlagGermany
           Case 4: Call FlagFrance
           Case 5: Call FlagGreece
           Case 6: Call FlagUkraine
       End Select
End Sub
Sub FlagUkraine()
    p.Line (0, 0)-(W, H / 2), vbBlue, BF
    p.Line (0, H / 2)-(W, H), vbYellow, BF
End Sub
Sub FlagGreece()
    Dim i As Integer, strip As Single
    p.BackColor = vbWhite
    strip = H / 9
    For i = 1 To 9 Step 2
        p.Line (0, strip * (i - 1))-(W, strip * i), vbBlue, BF
    Next i
    p.Line (0, 0)-(W / 2, strip * 5), vbBlue, BF
    p.Line (W / 5, 0)-(W / 5 + strip, strip * 5), vbWhite, BF
    p.Line (0, strip * 2)-(W / 2, strip * 3), vbWhite, BF
End Sub
 
Sub FlagFrance()
    p.Line (0, 0)-(W / 3, H), vbBlue, BF
    p.Line (W / 3, 0)-(W - W / 3, H), vbWhite, BF
    p.Line (W - W / 3, 0)-(W, H), vbRed, BF
End Sub
 
Sub FlagRussia()
    p.Line (0, 0)-(W, H / 3), vbWhite, BF
    p.Line (0, H / 3)-(W, H - H / 3), vbBlue, BF
    p.Line (0, H - H / 3)-(W, H), vbRed, BF
End Sub
 
Sub FlagGermany()
    p.Line (0, 0)-(W, H / 3), vbBlack, BF
    p.Line (0, H / 3)-(W, H - H / 3), vbRed, BF
    p.Line (0, H - H / 3)-(W, H), vbYellow, BF
End Sub