• Home
 · 
• Sound/MP3
 · 
• mp3 by mmcontrol .ocx

mp3 by mmcontrol .ocx

mp3 by mmcontrol .ocx

Rate mp3 by mmcontrol .ocx

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

End
End Sub

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub


Private Sub Dir1_Change()
On Error Resume Next
File1.Path = Dir1.Path
End Sub


Private Sub File1_Click()
On Error Resume Next

Dim strFile As String
strFile = Dir1.Path & "\" & File1.List(File1.ListIndex)
 mmcmp3.DeviceType = "MPEGVideo"
    mmcmp3.FileName = strFile
    mmcmp3.Command = "Open"
 End Sub


Private Sub Form_Load()

End Sub