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