بازی snake

[tk1993]

با سلام خدمت اساتید محترم سایت
بازی مار رو دارم مینویسم به مشکل خوردم
برای ادامه ی بدنه ی مار از redim و load استفاده کردم ولی وقتی که سر مار با بدنه برخورد میکنه ارور میده
کمک کنید ممنونم
از این کد ارور میگیره: If s(0).Top = s(i).Top And s(0).Left = s(i).Left Then
اینم ارورش:

:'340'Run-time error
control array element '5' doesn't exist

[SlowCode]

سلام
از متن خطا مشخصه که مقدار متغیر i بیش از تعداد عناصر آرایه کنترلی s هست.
بهتره کد حلقه رو بزاری تا بررسی بشه.
ولی احتمالا اگه از حداکثر مقدار حلقه 1 رو کم کنی دیگه خطا نده.
مثلا اگه اینطوری نوشتی:

For i=0 to s.count -1
'Code
Next

بنویس:

For i=0 to s.count
'Code
Next

و یا:

For i=0 to s.Ubound
'Code
Next