Движение квадратов по форме

Option Explicit 
Dim iPositon As Integer 
Dim iDirection As Integer 
 
Private Sub Form_Load() 
    iPositon = 0 
    iDirection = 1 
    Timer1.Interval = 20 
    Timer1.Enabled = True 
    CreatingBoard 
End Sub 
 
Private Sub Timer1_Timer() 
    iPositon = iPositon + 20 * iDirection 
    If iDirection = 1 Then 
    If iPositon + 1000 >= Width Then iDirection = -1 * iDirection 
    Else 
    If iPositon - 1000 <= 0 Then iDirection = -1 * iDirection 
    End If 
    CreatingBoard 
End Sub 
 
Private Sub CreatingBoard() 
    Line1(0).X1 = iPositon 
    Line1(0).X2 = iPositon + 1000 * iDirection 
    Line1(0).Y1 = Height - 1000 
    Line1(0).Y2 = Height - 1000 
    
    Line1(1).X1 = iPositon 
    Line1(1).X2 = iPositon + 1000 * iDirection - 200 * iDirection 
    Line1(1).Y1 = Height - 600 
    Line1(1).Y2 = Height - 600 
    
    Line1(2).X1 = iPositon 
    Line1(2).X2 = iPositon 
    Line1(2).Y1 = Height - 1000 
    Line1(2).Y2 = Height - 600 
    
    Line1(3).X1 = iPositon + 1000 * iDirection 
    Line1(3).X2 = iPositon + 1000 * iDirection - 200 * iDirection 
    Line1(3).Y1 = Height - 1000 
    Line1(3).Y2 = Height - 600 
End Sub

Private Sub Form_Resize()
If iPositon > Width - 1000 Then iPositon = Width - 1000
End Sub

Private Sub treug(x As Integer, y As Integer, cv As Integer) 
Picture1.Cls 
Picture1.FillStyle = 0 
Picture1.DrawWidth = 2 
 
 
Picture1.Line (x + 300, y + 300)-(x + 600, y + 700), QBColor(cv + 2) 
Picture1.Line (x + 300, y + 300)-(x + 0, y + 700), QBColor(cv + 2) 
Picture1.Line (x + 600, y + 700)-(x + 0, y + 700), QBColor(cv + 2) 
 
 
End Sub

Option Explicit
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type
Dim P1(4) As POINTAPI, P2(4) As POINTAPI, P3(4) As POINTAPI
 
 
Private Sub Form_Click()
    Me.FillColor = vbYellow
    Polygon Me.hdc, P1(0), 4
    
    Me.FillColor = vbBlue
    Polygon Me.hdc, P2(0), 4
    
    Me.FillColor = vbRed
    Polygon Me.hdc, P3(0), 4
    
    Me.Refresh
 
End Sub
 
Private Sub Form_Load()
    
    Me.ScaleMode = vbPixels
    Me.FillStyle = 0
    Me.AutoRedraw = True
    
    P1(0).x = 10
    P1(0).y = 10
    P1(1).x = 100
    P1(1).y = 10
    P1(2).x = 150
    P1(2).y = 100
    P1(3).x = 10
    P1(3).y = 10
 
    P2(0).x = 150
    P2(0).y = 50
    P2(1).x = 300
    P2(1).y = 30
    P2(2).x = 250
    P2(2).y = 100
    P2(3).x = 150
    P2(3).y = 50
 
    P3(0).x = 350
    P3(0).y = 50
    P3(1).x = 500
    P3(1).y = 30
    P3(2).x = 450
    P3(2).y = 200
    P3(3).x = 350
    P3(3).y = 50
    
End Sub