para Baltasar con resoecto al relog + una pregunta

matamala
21 de Noviembre del 2003
como hago para que me funcione bien el puñetero escroll con mediaplayer.
quiero decir tengo un escroll que debe de subir y baja el volumen de el despertador.
escroll1, Max= 2500
Min= -600
luego en condigo:
Private Sub HScroll1_KeyPress(KeyAscii As Integer)
MediaPlayer1.volume = HScroll1.Value - 2500
End Sub

Private Sub HScroll1_Scroll()
MediaPlayer1 = HScroll1.Value - 600
End Sub.
pero en ocasiones me dá error error error modifico en tiempo de ejecución los datos 2500 ó -600 y hasta el proximo error error error.