Vibrierende Form VB-Version:  VB5, VB6
	Views:  2.226

Sie brauchen ein kleines Erdbeben? Vielleicht für ein Spiel, oder einfach sozum Spaß?

Nehmen Sie eine Form mit einem CommandButton und diesen Code:

Private Sub Command1_Click()
  Dim i As Integer
  Dim j As Integer
 
  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
End Sub

Starten Sie das Projekt und klicken Sie auf den CommandButton. Verändern Sieim Code die Zahlen um ein längeres oder kürzeres, stärkeres oder schwächeresBeben zu simulieren.