使用VB中的beep語句只能發出一種聲音。如果想發出不同聲音，可以使用API函數。
OptionExplicit
PrivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong
PrivateSubCommand1_Click()
DimfrequencyAsLong
frequency=CLng(txtFrequency.Text)
APIBeepfrequency,500
EndSub->
