' benötigte API-Deklaration
Private Declare Function WaitForSingleObject Lib _
  "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long
' Ewartet wird die Zeitangabe in Millisekunden!
' z.B. 1000 für 1 Sekunde
Public Function Wait(ByVal mSek As Long)
  WaitForSingleObject -1, mSek
End Function
 
 
Sub Vibrate(Frm As Form)
Frm.Show
 
Dim oLeft As Integer, oTop As Integer
Frm.ScaleMode = 3
oLeft = Me.Left
oTop = Me.Top
For v = 1 To 500
 
With Frm
    .Left = .Left - 20
    .Top = .Top + 20
    DoEvents
    .Left = .Left + 10
    .Top = .Top - 10
    DoEvents
    Wait 250   [color=darkgreen]'Hier habe ich jetzt einfach mal die Wait 
    ' Funktion eingefügt. Kannst du auch in einer anderen Zeile machen
    .Left = .Left + 30
    .Top = .Top + 30
    DoEvents
    .Left = .Left - 20
    .Top = .Top + 20
    DoEvents
    .Left = oLeft
    .Top = oTop
End With
DoEvents
Next v
End Sub
 
Private Sub Form_Load()
Vibrate Me
End Sub