Hi!
Ihr wisst ja wenn mann in Msn auf "Ring" drückt kommt dieser lustige Schüttel Effekt den habe ich mal Nachsimuliert XD
HF XDCode: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