如何用VC++或者VB編程控制聲卡發出想要頻率的聲音？

設單擊Command1時發出頻率為500?，持續時間為1秒的聲音。代碼如下。

------------------------------------

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()

Beep 500, 1000 '500表示頻率，單位為?；1000表示持續時間，單位為?。

End Sub

-------------------------------------

絕對可以使用。