Нарисовать весы с чашами

Option Explicit
Private Sub Form_Load()
Dim R As Integer, X As Integer, Y As Integer, C As Integer, H As Integer
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    DrawWidth = 5
    Line (150, 30)-(150, 300), vbBlack
       FillStyle = 0
    Circle (150, 30), 7, vbBlack
       FillStyle = 0
    Circle (150, 200), 7, vbBlack
       FillStyle = 0
    Circle (150, 300), 7, vbRed
    Line (35, 70)-(270, 140), vbBlack
     FillStyle = 0
    Circle (35, 70), 7, vbBlack
    FillStyle = 0
    Circle (270, 140), 7, vbBlack
    Line (60, 307)-(240, 310), vbBlack, BF
    Line (40, 315)-(260, 330), vbBlack, BF
     DrawWidth = 2
    Line (35, 70)-(35, 150), vbBlack
    Line (35, 70)-(20, 150), vbBlack
    Line (35, 70)-(50, 150), vbBlack
    Line (270, 140)-(270, 220), vbBlack
    Line (270, 140)-(255, 220), vbBlack
     Line (270, 140)-(285, 220), vbBlack
     Line (230, 220)-(310, 225), vbBlack, BF
     Line (235, 227)-(305, 232), vbBlack, BF
     Line (2, 150)-(70, 155), vbBlack, BF
     Line (7, 156)-(65, 161), vbBlack, BF
End Sub

Option Explicit
 
Private Animate As Boolean, Up As Boolean
Private YL As Integer, YR As Integer
 
Private Sub Form_Load()
    Dim R As Integer, X As Integer, Y As Integer, C As Integer, H As Integer
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    DrawWidth = 5
    Line (150, 30)-(150, 300), vbBlack
    FillStyle = 0
    Circle (150, 30), 7, vbBlack
    FillStyle = 0
    Circle (150, 250), 7, vbBlack
    FillStyle = 0
    Circle (150, 300), 7, vbRed
    Line (60, 307)-(240, 310), vbBlack, BF
    Line (40, 315)-(260, 330), vbBlack, BF
    'Êîðîìûñëî
    Line (35, 70)-(270, 140), vbBlack
    FillStyle = 0
    Circle (35, 70), 5, vbBlack
    FillStyle = 0
    Circle (270, 140), 5, vbBlack
    DrawWidth = 2
    'Ëåâàÿ ÷àøêà
    Line (35, 70)-(35, 150), vbBlack
    Line (35, 70)-(20, 150), vbBlack
    Line (35, 70)-(50, 150), vbBlack
    Line (2, 150)-(70, 155), vbBlack, BF
    Line (7, 156)-(65, 161), vbBlack, BF
    'Ïðàâàÿ ÷àøêà
    Line (270, 140)-(270, 220), vbBlack
    Line (270, 140)-(255, 220), vbBlack
    Line (270, 140)-(285, 220), vbBlack
    Line (230, 220)-(310, 225), vbBlack, BF
    Line (235, 227)-(305, 232), vbBlack, BF
    YL = 70
    YR = 140
End Sub
 
Private Sub Command1_Click()
    Dim Color As Long
    Color = Me.Point(5, 5)
    Animate = Not Animate
    Do While Animate
        If Up Then
            YL = YL - 1
            YR = YR + 1
        Else
            YL = YL + 1
            YR = YR - 1
        End If
        If YL = 70 Or YR = 70 Then
            Up = Not Up
        End If
        Me.Line (0, 64)-(147, 232), Color, BF
        Me.Line (154, 64)-(310, 232), Color, BF
        'Êîðîìûñëî
        Line (35, YL)-(270, YR), vbBlack
        FillStyle = 0
        Circle (35, YL), 5, vbBlack
        FillStyle = 0
        Circle (270, YR), 5, vbBlack
        DrawWidth = 2
        'Ëåâàÿ ÷àøêà
        Line (35, YL)-(35, YL + 80), vbBlack
        Line (35, YL)-(20, YL + 80), vbBlack
        Line (35, YL)-(50, YL + 80), vbBlack
        Line (2, YL + 80)-(70, YL + 85), vbBlack, BF
        Line (7, YL + 86)-(65, YL + 91), vbBlack, BF
        'Ïðàâàÿ ÷àøêà
        Line (270, YR)-(270, YR + 80), vbBlack
        Line (270, YR)-(255, YR + 80), vbBlack
        Line (270, YR)-(285, YR + 80), vbBlack
        Line (230, YR + 80)-(310, YR + 85), vbBlack, BF
        Line (235, YR + 86)-(305, YR + 91), vbBlack, BF
        DoEvents
    Loop
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Animate = False
    DoEvents
    End
End Sub