[VB.NET Source] - Msn Ring Effekt

Hi!
Ihr wisst ja wenn mann in Msn auf "Ring" drückt kommt dieser lustige Schüttel Effekt den habe ich mal Nachsimuliert XD

Code:

---

Dim i AsInteger
Dim j AsInteger

For i = 40 To 0 Step -2
For j = 1 To 20
Me.Top = Me.Top + i
Me.Left = Me.Left + i
Me.Top = Me.Top - i
Me.Left = Me.Left - i
Next j
Next i

---

HF XD

Lol das is ja mal geil^^
man kann das abeer auch in nem fun virus übertreiben :D

jo ich finds auch richtig cool :)
ja son fun virus wäre nicht schlecht :)

Kannte ich schon trotzdem nice:)