Efek Form Bergetar di Visual Basic 6.0

Form bergetar biasanya digunakan dalam aplikasi Chatting, untuk mengingatkan lawan chattingnya apabila pesannya tidak dibalas-balas (buzz). Berikut cara membuatnya :

Buat sebuah Form dengan sebuah Tombol / Button dan sebuah Timer (Enabled=False; Interval=10) didalamnya. Di bagian '(Declarations)' dari Form ketikkan :

Dim g As Integer

Di bagian Tombol / Button 'Click' ketikkan :

Timer1.Enabled = True

Di bagian Timer ketikkan : 

If Me.WindowState <> 0 Then GoTo Ero
Select Case g
Case 0, 5
Me.Left = Me.Left - 60
Case 1, 6
Me.Top = Me.Top - 60
Me.Left = Me.Left + 60
Case 2, 7
Me.Top = Me.Top + 60
Me.Left = Me.Left + 60
Case 3, 8
Me.Top = Me.Top + 60
Me.Left = Me.Left - 60
Case 4, 9
Me.Top = Me.Top - 60
End Select

If g = 9 Then
Ero:
Timer1.Enabled = False
g = 0
Else
g = g + 1
End If