Make your own free website on

[an error occurred while processing this directive]
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    Dim Cnt As Byte
    'Beep 50 times
    For Cnt = 1 To 50
        MessageBeep 0
    Next Cnt
End Sub

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at