Para el sonido.. por ejemplo podrías crear una clase.. y luego la mandas a llamar por ejemplo.. con un boton... o lo que desees.. sería algo como esto:
Creas una clase que se llame CSSound y pones lo siguiente.:
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public Enum CSSoundFlags
CSSync = &H0
CSAsync = &H1
End Enum
Dim m_Filename As String
Public Property Get Filename() As String
Filename = m_Filename
End Property
Public Property Let Filename(ByVal newFile As String)
m_Filename = newFile
End Property
Public Sub PlayWave(Optional ByVal pFile As String = "", Optional ByVal pFlag As CSSoundFlags = CSSync)
On Error Resume Next
If pFile <> "" Then m_Filename = pFile
If m_Filename = "" Then Exit Sub
Call PlaySound(m_Filename, 0, pFlag)
End Sub
y en tu formulario pones un boton si quieres y pones este code:
Private Sub Command1_Click()
Dim temp As New CSSound
temp.PlayWave “c:\windows\media\tu_sonido.wav”, CSAsync
End Sub
Saludos..!!
