Buat Beep Cool vb seperti punya Avira Antivir

Nie gwe mau bagi" tpis cara mudah membuat beeb cool,pasti tau donk beep cool dengan vb ini

yaps,yaitu seperti saa avira antivir mendeteksi virus kan berbunyi tuliit,,,!tuliit,,! gitu kan ! maka dari itu gwe pengen berbagi tips sederhana aja bagi agan semua !

pertama siapkan

1 form

1 module

1 command button

Langsung ajah masukin kode dalam command button :

Private Sub Command1_Click()
BeepCool
End Sub

Terus masukin kode dalam module :

Option Explicit

Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWWINDOW As Long = &H40
Public Const TOPFLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal x As Long, _
    ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Dim i As Integer
Public Sub BeepCool()
 For i = 1500 To 2000 Step 300
     Beep i, 80
 Next i
End Sub