Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Sub Form_Activate() Dim Cnt As Long For Cnt = 0 To 5000 Step 10 Beep Cnt, 50 Me.Caption = Cnt DoEvents Next CntEnd Sub