Песочные часы

Option Explicit
Dim P As PictureBox
 
Private Sub Command1_Click()
    Dim x As Single, y As Single, k As Single
    k = 8
    On Error Resume Next
    Do
           P.Cls
           k = k - 0.01
           Call Body
           x = 0
           For y = 0 To (k) Step 0.1
                x = x - 0.063
                P.Line (-x, y)-(x, y), RGB(200, 200, 20) 'песок в верхней колбе
           Next y
           
           x = 0
           For y = -k To -(8) Step -0.1
                 x = x - 0.063
                 P.Line (-x, y)-(x, y), RGB(200, 200, 20) 'песок в нижней колбе
           Next y
           
           If k <= 0 Then k = 8
           DoEvents
     Loop
 End Sub
 
Private Sub Form_Load()
    Picture1.Scale (-10, 10)-(10, -10)
    Set P = Picture1
    P.BackColor = vbWhite
   
End Sub
 
Sub Body()
    P.DrawWidth = 8: P.ForeColor = RGB(200, 150, 200)
    P.Line (-5, 8)-(5, -8), , B  'Корпус
    P.DrawWidth = 4: P.ForeColor = RGB(200, 200, 250): P.AutoRedraw = True
    P.Line (-0.2, 0)-(-5, -8): P.Line (0.2, 0)-(5, -8): P.Line (-5, -8)-(5, -8) 'Нижняя колба
    P.Line (-0.2, 0)-(-5, 8): P.Line (0.2, 0)-(5, 8): P.Line (-5, 8)-(5, 8) 'Верхняя колба
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub