VB 如何获得并修改WIN7下的指定进程音量或者全局音量

我的程序用的是 SetWaveVolume,GetWaveVolume,在XP下工作正常，但是到了WIN7下就不正常了，在WIN7下只能设置我的程序本身的音量，而不能设置全局音量或者指定的进程的音量。
我需要：
1.获得第三方程序的当前音量
2.设置第三方程序的当前音量
如果能设置全局音量就更好。
在网上我找到了一个用 SENDMASSAGE 的方法，但是只能加大或者减小音量，而且我也不知道在WIN7下有没有作用，我没有WIN7系统。此方法并不能获得当前音量。