"iPod oder EiPott?"

"iPod oder EiPott?"

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.

Public Sub EnableDoubleBuffering()
   ' Set the value of the double-buffering style bits to true.
   Me.SetStyle(ControlStyles.DoubleBuffer _
     Or ControlStyles.UserPaint _
     Or ControlStyles.AllPaintingInWmPaint, _
     True)
   Me.UpdateStyles()
End Sub