well hi.. i Got this Variable not defined error(durationinms) .. and I cant seem to find a solution for it so :
Code:
Public Function MP3DurationInMs()
On Error GoTo TheError
Dim TotalTime As String * 128
Dim T As String
 TheFile$ = Chr$(34) + Trim(MP3File$) + Chr$(34)
    mciSendString "set " & TheFile & " time format ms", TotalTime, 128, 0&
    mciSendString "status " & TheFile & " length", TotalTime, 128, 0&
    mciSendString "set " & TheFile & " time format frames", 0&, 0&, 0&
    DurationInMs = Val(TotalTime)
    Exit Function
TheError: MsgBox Err.Description, , " Error"

End Function
i was using a MP3 class... added it to my project.. i can test run it .. and all will work.. but the moment i want to compress i get the Variable not defined error.. ..however i thought it IS defined. ? any help lplz