Bueno queria pedir autorizacion de reukltilizacin de codigo si me lo permites para un proyecto de mini juego....

Pero aun que vaya adelante el nod no creen por que es mas comercial???? ahora estoy con la ultima version de avast y no hay problema

Solo una duda el efecto de xp lo buttons cargasw directo la api verda???

Loqueno o sodelcost

Bueno espero que te haya servido ..... y respecto a lo ultimo que indicas lee un poco amigo y veras que te ira bien .... ok

jajajajjaja esta bien para mi no xd jajajjajajajaja
Mentira .... bueno code sencillo pero bueno

Che mano lo acabo de ver me olvide que tenia vb portable me encanto enserio se me esta ocurriendo hacer algo bueno con tu programa usarlo o adpatarlo para que me de las palabras con un AG.

  BUENO CHE

O talvez esta otra solucion mas sencilla, lo que puedes hacer como una alternativa mucho más simple que la que te di. Puedes insertar un control Windows Media Player, que lo encuentras en componentes. Tenés que ponerle la propiedad AutoStart = True y que te lo repita una vez, y cuando cargues el formulario va a empezar a reproducir el tema, si lo quieres reproducir ante un determinado evento pone el método Play y chau... Acordate de sacarle la propiedad Visible cosa que el usuario no vea el reproductor... Al nombre del archivo, podes en el Sub Main comprobar si existe, luego que el reproductor te tome con la propiedad Filename el nombre del archivo... Espero que te sirva y cualquier cosa me preguntas... lo hice la prueba en mi vb portable

Che bro que bueno.... lo bajo y veo mas ..
Lo que me llama mas la atencion es que el programa te habla  Aver como va;-)

Mañana instalo el vb 6.0 a mi laptop de nuevo ya que migre a seven

Mira esto es lo que uso para hacer mis programas no afecta en nada aver si te ayuda en algo me avisas

Option Explicit
 
Private Declare Function mciExecute _
Lib "winmm. Dll" ( _
ByVal lpstrCommand As String) As Long
Dim ret As Long, path As String 'Api para reproducir sonidos
 
Private Sub CargarSonido(Pat As String) ' Pat = ruta del archivo temporal
Dim myArray() As Byte
Dim myFile As Long
myArray = LoadResData(101, "CUSTOM") 'Carga el archivo de recursos
myFile = FreeFile
Open Pat For Binary Access Write As #myFile
Put #myFile, , myArray ' Escribe el archivo temporal
Close #myFile
End Sub
 
Private Sub Form_Load()
Call CargarSonido("c:\sonido. Mp3") ' Llama a la funcion q crea el archivo temporal
Call mciExecute("Play " & "c:\sonido. Mp3") ' Reproduce el archivo temporal
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
mciExecute "Close All" 'Detiene la reproduccion
Kill "c:\sonido. Mp3" ' elimina el archivo temporal
End Sub