Option Explicit
 
Private Sub Command1_Click()
    Quake 2  ' Gib hier mal zum Probieren '40' ein.
End Sub
 
Function Quake(times As Integer)
 
Dim i As Integer
Dim R As Integer, L As Integer
Dim T As Integer, B As Integer
Dim x As Integer
    x = Screen.TwipsPerPixelX
    Randomize
    R = Int((5 * Rnd) + 4) * x
    L = Int((5 * Rnd) + 4) * x
    T = Int((5 * Rnd) + 4) * x
    B = Int((5 * Rnd) + 4) * x
    For i = 1 To times
        Me.Top = Me.Top - T
        Pause
        'Me.Top = Me.Top + T
        'Pause
        Me.Top = Me.Top + B + T
        Pause
        Me.Top = Me.Top - B
        Pause
        Me.Left = Me.Left - L
        Pause
        'Me.Left = Me.Left + L
        'Pause
        Me.Left = Me.Left + R + L
        Pause
        Me.Left = Me.Left - R
    Next
End Function
 
Function Pause()
Dim Counter As Integer
    While Counter < 22222
        Counter = Counter + 1
    Wend
End Function