Created Unassigned: Trying to change volume [16395]

Im pretty new to Naudio, and im trying to change the volume of my DirectSoundOut

When i try to change it nothing happens even if i pause and play the song again

dim stream As NAudio.Wave.BlockAlignReductionStream = Nothing
dim output As DirectSoundOut = New DirectSoundOut()

Public Sub volume(ByVal vol_in As Single)
output.Volume = vol_in
End Sub