Cloning Buzz YM

Buzz merupakan salah satu fasilitas di YM yang akan membuat tampilan form bergerak dan mengeluarkan suara untuk mengingatkan seseorang teman chat anda di YM bahwa anda sedang chat dengannya tapi tidak dibalas-balas olehnya.
Disini saya akan membuat sebuah program sederhana yang fungsinya seperti buzz di ym menggunakan visual basic 6.0. Pada form yang dibutuhkan hanya sebuah komponen timer dan command button.

Tambahkan sebuah module kedalam project kemudian ketikan script dibawah ini ( copy paste aja deh klu ga mau susah (^^,) ) :

'fungsi windows api untuk memainkan file *.wav
Public Const SND_ALIAs = &H10000
Public Const SND_ASYNC = &H1
Public Const SND_FILENAME = &H20000
Public Const SND_LOOP = &H8
Public Const SND_NODEFAULT = &H2
Public Const SND_NOSTOP = &H10
Public Const SND_NOWAIT = &H2000
Public Const SND_SYNC = &H0
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uflags As Long) As Long

Pada formnya tambahkan 1 komponen command button, dan 1 buah komponen timer.
untuk command button rubah saja captionnya menjadi BUZZ dan untuk timer rubah intervalnya menjadi 10. k`lo udah copas lagi ajah script dibawah ini :

Option Explicit

Dim i As Integer
Dim l As Integer

Private Sub Command1_Click()
i = 1
l = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim X As Byte
Select Case i
Case 1
Form1.Left = Form1.Left - 100
Case 2
Form1.Top = Form1.Top - 100
Case 3
Form1.Left = Form1.Left + 100
Case 4
Form1.Top = Form1.Top + 100
Case 5
Form1.Left = Form1.Left - 100
Case 6
Form1.Top = Form1.Top - 100
Case 7
Form1.Left = Form1.Left + 100
Case 8
Form1.Top = Form1.Top + 100

X = sndPlaySound(App.Path & "\BUZZ.wav", SND_ALIAs Or SND_SYNC)
i = 0

Timer1.Enabled = False
End Select
i = i + 1
End Sub

tinggal di running dengan menekan tombol F5. eeiiitttzzz.... tapi jangan lupa dulu siapin file wavnya.. copy ajah dari foldernya ym (^^,)...
selamat mencoba