[VB6] DirectSound (DX8) e temporizzazione

[xegallo]

allora ricominciamo
GetCurrentPosition genera un offset di bites
lo passi ad un cursore e lo converti in secondi

dim x as WAVEFORMATEX
dim c as DSCURSOR
dim posizione as long

   suono.GetCurrentPosition c
   posizione= c.lPlay / x.lAvgBytesPerSec