Conversão Código Vb.net para Vb6

[By Pedro]

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

alguém 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