Сперва чего то не рисует и как избавится от моргания

Dim PX, PY, TrRez, i As Integer
Const s = 7
Private Sub Form_Load()
For i = 0 To s - 1
Shape1(i).Top = Label1(i).Top + (Int(Label1(i).Height / 2) - 60)
Shape1(i).Left = Label1(i).Left + (Int(Label1(i).Width / 2) - 60)
Next i
pies
End Sub

Private Sub Form_Paint()
'pies
End Sub

Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
TrRez = 1
PX = X
PY = Y
End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If TrRez = 1 Then
Label1(Index).Left = Label1(Index).Left + X - PX
Label1(Index).Top = Label1(Index).Top + Y - PY
Shape1(Index).Top = Label1(Index).Top + (Int(Label1(Index).Height / 2) - 60)
Shape1(Index).Left = Label1(Index).Left + (Int(Label1(Index).Width / 2) - 60)
pies
End If
End Sub

Private Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
TrRez = 0
End Sub

Private Sub pies()
Cls
For i = 0 To s - 2
For j = i + 1 To s - 1
Line ((Shape1(i).Left + Int(Shape1(i).Width / 2)), (Shape1(i).Top + Int(Shape1(i).Height / 2)))-((Shape1(j).Left + Int(Shape1(j).Width / 2)), (Shape1(j).Top + Int(Shape1(j).Height / 2)))
Next j
Next i
End Sub

Shape1(i).Top = Label1(i).Top + (Int(Label1(i).Height / 2) - 60)
Shape1(i).Left = Label1(i).Left + (Int(Label1(i).Width / 2) - 60)