PlaySound Example

Option Explicit

Sub Main

Dim intReturn As Integer

Dim varSoundToPlay As Variant

Dim varSound As Variant

Dim intWaitUntilFinished As Integer

 varSoundToPlay = "c:\somewavefile.wav"

 intWaitUntilFinished = 0

 intReturn = Action2.PlaySound (varSoundToPlay, intWaitUntilFinished)

 If intReturn = 0 Then

  MsgBox "Failure"

  MsgBox( Action2.GetLastError )

 ElseIf intReturn = 1 Then

  MsgBox "Success"

 End If

End Sub