![]() |
![]() |
|||||
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
||
![]() ![]() ![]() |
||||
![]() |
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. |