Visual Basic - Ayuda Porfavor!!!

Hola
Ojala me puedan ayudar porfavor con lo siguiente:
Tengo unos videos que capture y los cargo en mi aplicación por medio de windows media player, el problema que los videos tienen mala calidad de sonido y se oyen bajito,como le puedo hacer para que en el momento de ejecutar el video se suba el volumen y cuando termine el video se baje el volumen a su estado inicial.
como se manipula el volumen?
Espero haberme explicado, agradeceré muchisimo en lo que me puedan ayudar.

Te aconsejo que para reproducir el avi uses la api mcisendstring asi lo controlas tu
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Function SetVolume(AliasName As String, Channel As String, VolumeValue As Long) As String
Dim cmdToDo As String * 128
Dim dwReturn As Long
Dim ret As String * 128
Dim VolumeV As Long
VolumeV = VolumeValue

If VolumeV < 0 Or VolumeV > 100 Then
SetVolume = "out of volume"
Exit Function
End If

VolumeV = VolumeV * 10

If LCase(Channel) = "left" Or LCase(Channel) = "right" Then
cmdToDo = "setaudio " & AliasName & " " & Channel & " Volume to " & VolumeV
Else
cmdToDo = "setaudio " & AliasName & " Volume to " & VolumeV
End If

dwReturn = mciSendString(cmdToDo, 0&, 0&, 0&)

If Not dwReturn = 0 Then 'not success
mciGetErrorString dwReturn, ret, 128 'Get the error
SetVolume = ret
Exit Function
End If

'Success
SetVolume = "Success"
End Function

para subir el volumen
Result = SetVolume(AliasName, "all", vol)
donde vol=nº del 0 al 100
y aliasname=nombre del alias con el que se abrio el avi

Para abrir el avi tienes multitud de ejemplos en VB, busca mcisendstring en google y los encontraras