Bueno lo de la imagen te la debo, si no conseguis la respuesta usa el ultimo recurso que es hacer un screenshot, cortas el dibujito y lo pones en un boton ordinario, recorda que si no usas la propiedad picture en tiempo de ejecucion no hace falta que tengas el archivo grafico en algun directorio, o sea, es casi lo que pedis. El resto es lo siguiente...
Private Sub Command1_Click()
Dim PropVol As Double
PropVol = Shell("Sndvol32.exe", 1) 'Te lleva derecho a las propiedades
End Sub
Sisi
Bye!