您好：请具体描述错误产生的信息

运行源程序"多媒体播放器.vbp"时，提示“实时错误'5':无效的过程调用或参数”，按调试按钮，显示位置如下内容中的下划线部分（红色部分）：
Public Sub ShowLRC()
Dim fN As String '定义文件名
Dim iNum As Integer '存储文件扩展名的长度
If Frm_PlayList.Lvw_PlayList.ListItems.Count = 0 Then
Exit Sub
Else
fN = Frm_PlayList.List1.List(Frm_PlayList.Lvw_PlayList.selectedItem.Index - 1)
iNum = Len(GetExtension(fN))
fN = Left(fN, Len(fN) - iNum) & "lrc"
List1.Clear
Picture1.Visible = False
If LyricsAnalyse(fN) = True Then
Dim i As Integer
For i = 0 To 7
List1.AddItem " "
Next i
For i = 0 To UBound(Lyric)
List1.AddItem Space(8) & Right(Lyric(i), Len(Lyric(i)) - 10)
Next i
For i = 0 To 7
List1.AddItem " "
Next i
Else
Picture1.Visible = True
Lbl_FileName.Caption = SongName(fN)
End If
End If
End Sub
麻烦解决，谢谢！！

运行源程序"多媒体播放器.vbp"时，提示“实时错误'5':无效的过程调用或参数”，按调试按钮，显示位置如下内容中的下划线部分（红色部分）：
Public Sub ShowLRC()
Dim fN As String '定义文件名
Dim iNum As Integer '存储文件扩展名的长度
If Frm_PlayList.Lvw_PlayList.ListItems.Count = 0 Then
Exit Sub
Else
fN = Frm_PlayList.List1.List(Frm_PlayList.Lvw_PlayList.selectedItem.Index - 1)
iNum = Len(GetExtension(fN))
fN = Left(fN, Len(fN) - iNum) & "lrc"
List1.Clear
Picture1.Visible = False
If LyricsAnalyse(fN) = True Then
Dim i As Integer
For i = 0 To 7
List1.AddItem " "
Next i
For i = 0 To UBound(Lyric)
[font color=#FF0000]List1.AddItem Space(8) & Right(Lyric(i), Len(Lyric(i)) - 10)
[/font]Next i
For i = 0 To 7
List1.AddItem " "
Next i
Else
Picture1.Visible = True
Lbl_FileName.Caption = SongName(fN)
End If
End If
End Sub
麻烦解决，谢谢！！

List1.AddItem Space(8) & Right(Lyric(i), Len(Lyric(i)) - 10)
出错是由于Lyric元素的长度小于10，那么在指定给Right函数的第2个参数是个负值，不满足函数的要求。你的歌词文件是下载的吧，可以与工程中自带的 歌词文件进行比较，看是否存在格式不统一的地方。

我还是没有搞懂：1、我的歌词及歌曲是用“酷我音乐盒 2010”播放器下载的。用“酷我音乐盒 2010”播放时一切正常，用你们提供的程序就出错！！！。2、您让我与您们提供的歌词比较一下，但我找不到您们提供的歌词。