Oh there ya go, thank you guys for that math solutions, @Richard MacCutchan i tried your solution, what i do is set progressbar Maximum to 10000, it looks like this:
MediaPlayerVolume1.SetVolume = MediaPlayerVolume1.Volume
TxtVolume.Text = Trim(-10000 + (100 * 100) - 10000 + MediaPlayerVolume1.SetVolume)
With your math is working, i want your brain dude :)
Thank you guys so much for helping me.