description | download | manual | ||
To create the component you should:
STDMETHODIMP CLongBeep::BeepSound(long Frequency, long Duration) { BOOL b1; b1= Beep(Frequency, Duration); return S_OK; } |
Dim objBeep Set objBeep = CreateObject("TONEC1.LongBeep") objBeep.BeepSound 1000,3000 Set objBeep = Nothing |
Privacy Policy | |
© 1999-2005. Tonec, Inc. All rights reserved. |