[VB] MessageBeep

Deklarasi
1 Form

Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
Private Sub Form_Load()
Dim Cnt As Byte
'Beep 50 times
For Cnt = 1 To 50
  MessageBeep 0
Next Cnt
End Sub

Jangan Lupa Komentar Yaa..