PSET redraw problem (pics included)

[winterslam]

I have a picturebox and it draws circles according to the movement of the mouse pointer




It stores the x-y coordinates in a collection object.

Private Sub picCamera_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Dim var As New Entity

If Shift = 1  Then          
            picCamera.Circle (x, y), 25, vbRed  
            var.x = x
            var.y = x
            var.t = route.Count + 1
            route.Add var
           
End If
End Sub

When I redraw the coordinates in the collection, the following is the shape. It looks completely different. It is supposed to be the same as the original shape.

For i = 1 To route.Count
            x = route.Item(i).x
            y = route.Item(i).y          
            frmCamera.picCamera.Circle (x, y), 25, vbRed       

Next i

By the way, just ignore "Time step". It doesn't mean anything.