[Resolvido] Problemas com código Vb.net para Vb6

ae galera do forum.. tudo bem?

bom eu estou criando uma aplaicação para controlar o volume de um activex media player

encontrei um exemplo em vb.net mas estou programando em vb 6

alguem poderia "converter" este código para vb6 pra mim

sendo que ele tipo irá pegar o valor atual do scroll e repassará para o componente activex

aqui vai o código

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
' So we can see the value of our trackbar
Label1.Text = TrackBar1.Value

' Set the media player volume accordingly (we multiply by 10 because its on a 1-100
' scale and our ticks, by default, is 10 ticks)
' If you want finer control you can set the trackbar from 1 - 100 and then you won't
' need to multiply at all.
MediaPlayer1.settings.volume = TrackBar1.Value * 10
End Sub