Abris el proyecto. En el menu buscás la pestaña Proyecto->Componentes, marcas Microsoft Multimedia Control 6. Con esto te aparece un ícono nuevo en el cuadro de herramientas que lo identificas como MMControl. Este lo pones en el form. Con esto logras darle sonido al botón que vas a hacer. Buscá los sonidos .wav de Windows , fijate el que hace click con el sonido que te gusta, copialo a la carpeta donde pones el futuro ejecutable, con eso tenés sonido de click en tu botón, cambiale el nombre a click.wav. Luego ponele 2 controles picture al form, metele 2 figuras de boton presionado y botón sin presionar, ponlos uno arriba del otro, y haz que el picture1 quede arriba del picture2, ponle un control timer al form, y ponele al picture1.click el siguiente código:
MMControl1.Command = "Open"
MMControl1.AutoEnable = True ' = vbMCIModePlay
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path + "\click.wav"
MMControl1.Command = "Open"
MMControl1.AutoEnable = True ' = vbMCIModePlay
MMControl1.Command = "Play"
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
Picture1.Visible = False ' Tiene la figura del botón sin pulsar
Picture2.Visible = True '' Tiene la figura del botón pulsado
Timer1.Enabled = True
Timer1.Interval = 800
luego, a Timer1_Timer() le pones el siguiente código:
Picture1.Visible = True
Picture2.Visible = False
Timer1.Enabled = False
y a continuación pones lo que tiene que pasar cuando pulsas el botón, por ejemplo mostrar el form2
Form2.show
Así puedes hacer el botón con la apariencia que quieras
MMControl1.Command = "Open"
MMControl1.AutoEnable = True ' = vbMCIModePlay
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path + "\click.wav"
MMControl1.Command = "Open"
MMControl1.AutoEnable = True ' = vbMCIModePlay
MMControl1.Command = "Play"
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
Picture1.Visible = False ' Tiene la figura del botón sin pulsar
Picture2.Visible = True '' Tiene la figura del botón pulsado
Timer1.Enabled = True
Timer1.Interval = 800
luego, a Timer1_Timer() le pones el siguiente código:
Picture1.Visible = True
Picture2.Visible = False
Timer1.Enabled = False
y a continuación pones lo que tiene que pasar cuando pulsas el botón, por ejemplo mostrar el form2
Form2.show
Así puedes hacer el botón con la apariencia que quieras