کمکم کنید در ساخت موزیک پلیر

سلام من دنبال یه کدی هستم که وقتی روی open بزنم صفحه زیر نشون داده بشه که فقط فایل های MP3 بخونه


[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اگه از كنترل microsoft common dialog استفاده مي كنيدبايد ----- اونو يه شكل زير تعريف كنيد:

کد:

---

Private Sub Command1_Click()
    Dim ImportTbl
    Set ImportTbl = CreateObject("MSComDlg.CommonDialog")
    With ImportTbl
        .Filter = "Mpeg Layer 3 files|*.mp3|All files|*.*"
        .ShowOpen
    End With
End Sub

---