حلقه ی فور

[ali123ali123 4]

سلام

چظور میتونم این دو کد را به for تبدیل کنم؟؟؟

1)

Try

Select img.Bitmap

Case bitmap1(0)

img.Bitmap=bitmap1(1)

Case bitmap1(1)

img.Bitmap=bitmap1(2)

Case bitmap1(2)

img.Bitmap=bitmap1(3)

Case bitmap1(3)

img.Bitmap=bitmap1(4)

Case bitmap1(4)

img.Bitmap=bitmap1(5)

Case bitmap1(5)

img.Bitmap=bitmap1(0)

End Select

Catch

Log("Err")

End Try

2)

bitmap1=Array Bitmap(LoadBitmap(File.DirAssets,"1.jpg"),LoadBitmap(File.DirAssets,"2.jpg"),LoadBitmap(File.DirAssets,"3.jpg"),LoadBitmap(File.DirAssets,"4.jpg"))

img.Bitmap=bitmap1(0)

[مجید آرتا 5,875]

واسه چی به حلقه بدید دقیقا ؟*r24*

[ali123ali123 4]

میخام طول کد ها و کارم کم بشه