Gostaria que alguém me ajudasse, me dizendo como fasso para colocar som(Audio) em um form1 Em Visual Basic

 

Atenciosamente Nilo

 

 

 

 

'Tirado da seção dicas

Public Declare Function sndPlaySound Lib "winmm.dll" _
       Alias "sndPlaySoundA" (ByVal lpszSoundName As _
       String, ByVal uFlags As Long) As Long

Public Enum SndPlayFlags
  SND_SYNC = &H0
  SND_ASYNC = &H1
  SND_NODEFAULT = &H2
  SND_MEMORY = &H4
  SND_LOOP = &H8
  SND_NOSTOP = &H10
End Enum

Public Sub PlaySound(File As String, Optional Flags _
      As SndPlayFlags)
  If File = "" Then
    Call sndPlaySound(0&, 0)
  Else
    Call sndPlaySound(File, Flags)
  End If
End Sub

'P/ tocar o som, utilize:
PlaySound "C:Som.WAV"
'P/ parar o som, utilize:
PlaySound ""
P.S.: Quando for tocar um som, você pode passar alguma opção no parâmetro Flags. As opções são:
* SND_SYNC => Toca o WAVE sincronizado (default).
* SND_ASYNC => Toca o WAVE sem sincronismo.
* SND_NODEFAULT => Não usa o som padrão.
* SND_MEMORY => Direciona o IpszSoundName para o lugar de um arquivo na memória.
* SND_LOOP => Toca o WAVE em looping. Até q você mande-o parar.
* SND_NOSTOP => Não para o som que estiver tocando.