PC speaker beep

api_beep works for me
try this

For x=1 To 2000 Step 10
api_Beep(x,20)
Next
End