1. download dulu visual basic 6.0 (maaf, link tidak ada).
2. buka progam visual basic, buat new project dan pilih standar.exe.

3. tekan Ctrl + T, dan centang Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control    
    6.0.

4. lalu tambahkan 2 buah label, 2 command button, satu CommondDialog dan MMControl, desainlah seperti gambar di bawah ini (untuk label tersarah kalian).

5. setelah di desain, kalian ubah properties nya seperti ini.

6. setelah itu, masukkan source code:
  Private Sub Command1_Click()

On Error GoTo loncat

MMControl1.Command = "stop"

CommonDialog1.ShowOpen

MMControl1.FileName = CommonDialog1.FileName

MMControl1.Command = "open"

Label1.Caption = CommonDialog1.FileTitle

loncat:

Exit Sub

End Sub

Private Sub Form_Unload(Cancel As Integer)

MMControl1.Command = "stop"

End Sub

Private Sub Command2_Click()

End

End Sub