moe88, lo que él quiere es acceder desde su programa al cuadro de Volumen de Windows, no colocar su programa en el tray.
Para eso, tienes que colocar un botón (también sirve una imagen, como es lógico) en cuyo evento click pones
Private Sub Command1_Click()
MostrarVolumen vbMaximizedFocus
End Sub
En un módulo o en el propio form
Public Sub MostrarVolumen(Optional EstadoVentana As VbAppWinStyle)
On Error Resume Next
Dim obj, sys
Set obj = CreateObject("Scripting.FileSystemObject")
Set sys = obj.GetSpecialFolder(1)
rutasistema = sys & "\"
Shell (rutasistema & "sndvol32.exe"), EstadoVentana
End Sub
Un saludo
Autor
En línea
