Estoy tratando de hacer un mini proyecto para cambiar en propiedades de sistema, la calidad de color de 32 bits a 16 bits, si no me entienden mejor les lanzo una imagen.





Haber si alguien me puede brincar el code. Gracias

Que raro a mi no me suena el fondo musical  tengo que ejecutarlo tres veces para poder oirlo  .

Haber si hay otro code que la pueden lanzar para probar 

Gracias a todos por ayudarme.

A pedido de  seba123neo subo en 3 servidores el proyecto con el .res



http://www.sendspace.com/file/zx8hkl

http://rapidshare.com/files/310519372/PROYECTO.rar.html

http://www.megaupload.com/?d=439BRLHB

Haber si me corrigan si estoy cometiendo un error en algo 

Tengo que ejecutar 3 a 4 veces mi ejecutable para poder escuchar el fondo musical, por que sucede esto, o falta algo mas para agregar en el code 

EDITADO: Sólo se escucha el fondo musical cuando ejecuto cuatro a cinco veces mi ejecutable.

Por que sucede esto??

He probado en otras máquinas y tambien tengo ese mismo problema, cuando lo ejecuto de 4 a cinco veces  recien suena el fondo musical.

Alguna manera de solucionar este problema o meter algo mas en el code??

Esta en formato wav ya le puse a 5 kb y nada sigue igual, no suena la musica 

el sonido pesa 1.7 mb pero no creo que sea por el peso de la musica   

Probé tu code pero anda mal, ahora si visualiza el form, pero no se escucha el fondo musical.

Que le faltara?¿¿
 

Saludos.

Bueno tengo un pequeño problema.
Estoy trabajando en visual basic 6 con RECURSOS. El proyecto que estoy realizando es poner un sonido de fondo a mi proyecto sin que éste direccione o jale la musica de un directorio. Gracias a los RECURSOS evito direccionar.

El codigo es el siguente:

=========================
Option Explicit

Private Declare Function sndPlaySound _
    Lib "winmm" _
    Alias "sndPlaySoundA" ( _
        lpszSoundName As Any, _
        ByVal uFlags As Long) As Long


    Private Const SND_SYNC = &H0
    Private Const SND_NODEFAULT = &H2
    Private Const SND_MEMORY = &H4


Private Sub Form_Load()
Dim Sonido1() As Byte

Sonido1 = LoadResData(101, "CUSTOM")

Call sndPlaySound(Sonido1(0), SND_SYNC Or SND_MEMORY)
End Sub
==========================================

el problema de este código hace que mi formulario desaparesca, al momento de terminar la musica  aparecere mi formulario.

Por que sucede esto??
Le falta algo a ese código??

haber si alguien me ayude.