|
|
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Cnt As Byte
'Beep 50 times
For Cnt = 1 To 50
MessageBeep 0
Next Cnt
End Sub
|
|
