Cara membuat Effect Getar(Vibrate) di Form (VB6)

kalo agan2 pernah menggunakan GeSp 1.3 apabila terjadi proses suspend,
agan2 pasti melihat GeSp nya bergetar .. neh source code nya cara
membuat effect tersebut :

- Jalankan VB6

- Buat Project Baru Standart EXE

- Ketik codding ini form project agan

Option Explicit

Private Sub Form_Load()
Vibrate Me, 100, 20
End Sub

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub