Dim radius As Integer = 120
Dim x As Integer = 0
Dim y As Integer = 0
Static winkel As Integer = 1
x = (radius * Math.Cos(winkel)) + 240
y = (radius * Math.Sin(winkel)) + 240
PictureBox1.Location = New Point(x, y)
winkel += 1

"iPod oder EiPott?"

Beitrag wurde zuletzt am 04.04.10 um 12:02:06 editiert.