DirectSound DirectX 8 for Visual Basic Type Library

Option Explicit
Private objDirectX As DxVBLibA.DirectX8, objDirectSound As DxVBLibA.DirectSound8, _
    objSoundBufferStart As DxVBLibA.DirectSoundSecondaryBuffer8, _
    objSoundBufferEnd As DxVBLibA.DirectSoundSecondaryBuffer8, objSoundBufferEntrance _
    As DxVBLibA.DirectSoundSecondaryBuffer8, objSoundBufferExit As DxVBLibA.DirectSoundSecondaryBuffer8, _
    objSoundBufferExclamation As DxVBLibA.DirectSoundSecondaryBuffer8, objSoundBufferFromResource As _
    DxVBLibA.DirectSoundSecondaryBuffer8, udtBufferFlags As DxVBLibA.DSBUFFERDESC
Private Sub cmdEnd_Click()
    Set objSoundBufferEnd = objDirectSound.CreateSoundBufferFromFile(App.Path & "\" & "Windows XP - завершение.wav", _
        udtBufferFlags)
    objSoundBufferEnd.Play CONST_DSBPLAYFLAGS.DSBPLAY_DEFAULT
End Sub
Private Sub cmdEntrance_Click()
    Set objSoundBufferEntrance = objDirectSound.CreateSoundBufferFromFile(App.Path & "\" & "Вход в Windows XP.wav", _
        udtBufferFlags)
    objSoundBufferEntrance.Play CONST_DSBPLAYFLAGS.DSBPLAY_DEFAULT
End Sub
Private Sub cmdExclamation_Click()
    Set objSoundBufferExclamation = objDirectSound.CreateSoundBufferFromFile(App.Path & "\" & "Windows XP - восклицание.wav", _
        udtBufferFlags)
    objSoundBufferExclamation.Play CONST_DSBPLAYFLAGS.DSBPLAY_DEFAULT
End Sub
Private Sub cmdExit_Click()
    Set objSoundBufferExit = objDirectSound.CreateSoundBufferFromFile(App.Path & "\" & "Выход из Windows XP.wav", _
        udtBufferFlags)
    objSoundBufferExit.Play CONST_DSBPLAYFLAGS.DSBPLAY_DEFAULT
End Sub
Private Sub cmdStartButton_Click()
    objSoundBufferStart.Play CONST_DSBPLAYFLAGS.DSBPLAY_DEFAULT
End Sub
Private Sub Form_Load()
    Set objDirectX = New DxVBLibA.DirectX8
    Set objDirectSound = objDirectX.DirectSoundCreate("")
    objDirectSound.SetCooperativeLevel Me.hWnd, CONST_DSSCLFLAGS.DSSCL_NORMAL
    udtBufferFlags.lFlags = CONST_DSBCAPSFLAGS.DSBCAPS_CTRLPAN Or CONST_DSBCAPSFLAGS.DSBCAPS_CTRLFREQUENCY _
        Or CONST_DSBCAPSFLAGS.DSBCAPS_CTRLVOLUME
    Set objSoundBufferStart = objDirectSound.CreateSoundBufferFromFile(App.Path & "\" & "Windows XP - запуск.wav", _
        udtBufferFlags)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set objSoundBufferStart = Nothing
    Set objSoundBufferEnd = Nothing
    Set objSoundBufferExit = Nothing
    Set objSoundBufferEntrance = Nothing
    Set objDirectSound = Nothing
    Set objDirectX = Nothing
End Sub