حرکت تکست روی فرم

[dr.undead]

سلام
میشه راهنمایی کنید چرا این دستور متنو تکون نمیده ؟

Dim lbl As New Label()
for i as integer = 400 to 9

lbl.AutoSize = True
lbl.Text = "برنامه نویسان و تحلیلگران: ناهید طالبی - رضا شیرخانلو"
lbl.Location = New Point(26, i.tostring())
Me.Controls.Add(lbl)
next

[hosein320]

سلام
باید به این شکل درستش کنی

Dim lbl As New Label()
for i as integer = 400 to 9 step -1

lbl.AutoSize = True
lbl.Text = "برنامه نویسان و تحلیلگران: ناهید طالبی - رضا شیرخانلو"
lbl.Location = New Point(26, i.tostring())
Me.Controls.Add(lbl)
next
البته اگه میخوای این کد رو تو تایمر بزاری درست کار نمیکنه
اگه بخوای تو تیمر بزاری باید به این صورت بشه
اول یه متغیر تو بخش جنرال تعریف میکنی مثلا
I
lbl.Location = New Point(26, i)
i += 1

[shahryari]

اين يك نمونه را هم دانلود كنيد خالي از لطف نيست
http://forum.oranustalk.ir/uploaded/3_01356770073.zip