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