استفاده از تایمر در حلقه

[mamad20 18]

با سلام .

میخوام توی اسلاید پنل 201 عکس رو از دیتابیس لود کنم . اینجوری میشه ؟

یه حلقه دارم که قراره اسلاید پنل رو با 201 دکمه برام باز کنه . چون 201 عکس داره و بطور معمول یا روی گوش های قوی اجرا میشه یا کرش میده  ، چون سرعتم پایینه میخوام از تایمر استفاده کنم برای لود تصاویرش و بگم مثلا هر 50 میلی ثانیه یه عکس رو لود کنه که کرش نده . آیا میشه ؟ و چطور توی حلقه زیر ازش استفاده کنم . 

For i = 1 To 201
	Dim b1 As Button
	b1.Initialize("btnstep")
	b1.Tag = i
	slide1.Panels(offset).AddView(b1,left,top,25%x,25%x)
	left = left + 25%x + 7%x
	If i < strstep  Then
		Dim sql1 As SQL
Dim cur1 As Cursor
Dim adrs As String
sql1.Initialize(File.DirInternal,"gdb.db",False)
cur1 = sql1.ExecQuery("Select * from tbl_list")
For i = 0 To cur1.RowCount-1
	cur1.Position = i
	adrs = cur1.GetString("img")
	b1.SetBackgroundImage(LoadBitmap(File.DirAssets,adrs))
	Next
	Else
	b1.SetBackgroundImage(LoadBitmap(File.DirAssets,"lock.jpg"))
	b1.Enabled = False
	End If
	If i mod 3 = 0 Then
	 top = top + 25%x + 7%X
	 left = 5%x
	End If
	
	If i mod 12 = 0 Then
		offset = offset + 1
		top = 15%x
	End If
	Next

راستی ببینید حلقه مشکل نداره چون رو شبیه ساز  که کار نمیده و رو گوشی هنوز اجراش نکردم .