Sub TOCA_SOM(MSON As String)
MMControl1.Command = "Close"
MMControl1.filename = MSON
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
Private Sub Form_Activate()
TOCA_SOM (App.Path & "SonsWelcom98.wav")
End Sub
' voce precisa abilitar em Componenetes - Microsoft Multimidia Control
e colar no form o MMControl1
' pronto toda vez que o form abrir toca o son...