Hey, I get an error when i'm adding a mp3 file into a listbox.
I'm adding the file with:
and i get an error: Type MismatchCode:PlayList......+ MP3.Length
The bold line in the code is the yellow line which VB marks in errorCAn ne1 plz fix theat line for me?Code:Public Function LengthInSec() As Long Dim Ls As String * 30 Call mciSendString("set MP3Play time format milliseconds", 0, 0, 0) Call mciSendString("status MP3Play length", Ls, Len(Ls), 0) (B)LengthInSec = CLng(Left$(Ls, Len(Ls))) \ 1000(/B) End Function




Reply With Quote