Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports QuartzTypeLib Public Class Form1 Dim Directshow As IBasicAudio Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.Value = Directshow.Volume End Sub End Class