こんにちは。

多分、kaneさんが使っているVBがVB2005かVB2008なのではないですか？
YASさんのコードは最新版のVB2010で動きます。
VB2010もExpresss Editionは無償なのでぜひダウンロードして使ってみてください。

VB2005やVB2008でも動くようにするには

Me.Controls.AddRange({Me.Button1, Me.TrackBar1})

の個所を
    

Me.Controls.AddRange(New Control() {Me.Button1, Me.TrackBar1})

にします。

試してみましたが快適に動作しますよ。つまみをマウスで移動させると再生位置もちゃんとジャンプしてくれてごきげんです。