Listing probleempje

Ik heb in een form staan om b.v. MP3 bestanden te openen:

Private Sub Dir1_Change()
File1.FileName = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
File1.Pattern = File1.FileName
End Sub


Private Sub File1_DBLclick()
Text1.Text = (Dir1.Path + "\" + File1.FileName)
WindowsMediaPlayer1.URL = Text1.Text
WindowsMediaPlayer1.Controls.play
End Sub

Is er ook een manier om in Private Sub File1_DBLClick() direkt naar de bestandsmap te gaan met de naam C:\MP3
om daar alleen de MP3 bestanden te kunnen laten zien in een file list die net als nu door dubbelklikken af gaat spelen?
Ik heb google al doorgespit maar kom er niet uit..