كود يعمل فى مكان ولا يعمل فى مكان اخر!!!!!!!!!!!!!

بسم الله الرحمن الرحيم

اخوانى

عندي مشروع به مجموعة صور أسماءها

p1(0),p1(10),p1(20),p1(30),p1(40)

عندى كود بسيط لتحريك مجموعه من الصور بالماوس هو كالاتي

Private Sub p1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Static oldX As Single, oldY As Single

Select Case Button

Case 0

oldX = X

oldY = Y

Case 1

For i = 0 To 40 Step 10

p1(Index + i).Move p1(Index + i).Left - (oldX - X), _

p1(Index).Top - (oldY - Y) + 360 * i / 10

Next i

End Select

'End If

End Sub

المشكله أن هذا الكود يعمل جيدا جدا فى مشروع

وهو نفسه دون أي اختلاف يعمل فى مشروع اخر مع وجود تشويش فى الحركه غير مقبول

ترى ما هو السبب؟

ملحوظه/ المشروع الذى لا يعمل فيه الكود جيدا حجمه كبير نسبيا