سلام

میتونی از تابع API زیر استفاده کنی:
Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

dwFreq: فرکانس صدا است.
dwDuration: مدت زمان پخش صدا میباشد بر حسب میلی ثانیه (این متغیر در ویندوز 95,98,Me تاثیری ندارد).

موفق باشید و پرتوان