Membuka File Musik Atau Film Dengan VB

Buka VB
Buatlah form sbb

Object :
Command1
Commondialog1 (tambahkan komponennya)
Windowsmediaplyaer1 (tambahkan komponennya)

Klik dua kali command1
Tulis coding sebagai berikut :



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



RUN project
Klik Command1
Cari file musik atau film di komputer anda
Klik dua kali nama file target atau klik open

Simple Banget ya.....Selamat Mencoba