Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long Private Sub Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim Cnt As Byte For Cnt = 1 To 50 MessageBeep 0 Next Cnt End Sub