Membuka File Musik atau Film dengan VB 6.0

langsung aja ya :) lagi males ngetik
objek yang di pakai adalah
* 1 comand button
* microsoft common dialog control 6.0 (SP6) "tambahkan komponennya
jika tidak tahu caranya klik CTRL+T"
* Windowsmediaplyaer1 " tambahkan komponennya juga"
* jika sudah klik 2 kali di command1
* tulis coding sebagai berikut :

Private Sub Command1_Click()
CommonDialog1.Filter = "*.wmv|*.MP4"
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub

berikut contoh program yang ane buat

semoga bermanfaat :) thanks