طریقه جابه جایی( Move ) آیکون ها و ... با ابزار Timer

[rayson]

با سلام و خسته نباشید.
من میخواستم با ابزار timer یک دکمه را به حرکت در بیاورم ، و اگر امکانش هم باشه خودم جهت حرکت آن را مشخص کنم .
اگر شخصی در این زمینه اطلاعاتی دارد لطفا من را راهنمایی کند .
با تشکر

[tstsst]

سلام
این با تایمر
Dim M As String = "L"
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
M = "R"
M = "L"
M = "U"
M = "D"
Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim x, y As Integer
Select Case M
Case "R"
y = Button3.Location.Y
x = Button3.Location.X + 1
Case "L"
y = Button3.Location.Y
x = Button3.Location.X - 1
Case "U"
y = Button3.Location.Y - 1
x = Button3.Location.X
Case "D"
y = Button3.Location.Y + 1
x = Button3.Location.X
Case Else
End Select
Button3.Location = New Point(x, y)
End Sub
این بدون تایمر
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Bmove("R")
End Sub
Sub Bmove(ByVal where As String)
Dim x, y As Integer
Select Case where
Case "R"
y = Button3.Location.Y
x = Button3.Location.X + 1
Case "L"
y = Button3.Location.Y
x = Button3.Location.X - 1
Case "U"
y = Button3.Location.Y - 1
x = Button3.Location.X
Case "D"
y = Button3.Location.Y + 1
x = Button3.Location.X
Case Else
End Select
Button3.Location = New Point(x, y)
Bmove(where)
End Sub
البته اگه بخوای تا بینهایت اجرا شه !

[rayson]

ممنون دوست من .
اگر امکانش هست در مورد کد توضیح بدید ممنون میشم کدی که با تایمر نوشتید منظورم است.
من کد اجرا که میکنم در ابتدا به چپ و هنکامی که برروی آن کلیک میکنم به پایین میرود و دیگر تغییر نمیکند .
و یک سوال دیگر این است که من اگر بخواهم با ابزاری مانند Radio Button این دکمه را در چهار جهت کنترل کنم با چه کدی میتوانم این فعالیت را برای ان تعریف کنم.
ممنون.

[rayson]

سلام.
کسی در این مورد نمیتونه به من کمک کنه ؟
من 4 Radio Button قرار دادم و طبق کد بالا x,y برای هر کدام قرار دادم و زمانی که برنامه اجرا میکنم هر بار که برروی یک رادیو کلیک میکنم یک واحد به آن اضافه میشود اما به صورت ممتد حرکت نمیکند.
کدقرار میدم لطفا کمک کنید.
با تشکر
http://uploadtak.com/images/k3158_56984.jpg

[hosein320]

بفرمایید
http://uploadkon.ir/?file=Timer.rar
موفق باشید