Вобщем вот:
- Код: Выделить всё
Private NotifyStop As Long
Private dsNotify(1) As DxVBLibA.DSBPOSITIONNOTIFY
......
NotifyStop = DX.CreateEvent(Me)
dsNotify(0).hEventNotify = NotifyStop
dsNotify(0).lOffset = DxVBLibA.CONST_DSOUND.SBPN_OFFSETSTOP
dsBuf.SetNotificationPositions(1, dsNotify)
Вот здесь идет ошибка
"Элемент не найден. (Exception from HRESULT: 0x8002802B (TYPE_E_ELEMENTNOTFOUND))".
Скажите что не так в VB6 все работало