播放器用了WMP11控件。最近终于在枕善居找到一个模仿千千静听播放列表的控件。我加了进去。可能是这个控件编写得不是很完美。该控件有个Play事件，在该控件双击时触发。就是这个事件，经常发生溢出错误。有时候甚至添加文件进播放列表时也会溢出。本人是个菜鸟。代码很长，看不明白。请高人来救救我。该控件就是下图右上角那个。请高人留下邮箱。我发源代码给他。求高人帮我解决该错误。

该控件有源代码。

晕，用list控件不一样么

要不就用listview

Private Sub Form_Load()List1.AddItem "1. play1 00:00"List1.AddItem "2. play2 00:00"List1.AddItem "3. play3 00:00"List1.AddItem "4. play4 00:00"With ListView1 .FullRowSelect = True .LabelEdit = lvwManual .View = lvwReport .ColumnHeaders.Add 1, , "Num", Me.TextWidth("0") * 4 .ColumnHeaders.Add 2, , "Name", .Width - Me.TextWidth("0") * 12 .ColumnHeaders.Add 3, , "Lenth", Me.TextWidth("0") * 7 .HideColumnHeaders = True .ListItems.Add 1, , "1111." .ListItems(1).SubItems(1) = "Name1" .ListItems(1).SubItems(2) = "00:00" .ListItems.Add 2, , "2." .ListItems(2).SubItems(1) = "Name2" .ListItems(2).SubItems(2) = "00:00" .ListItems.Add 3, , "3." .ListItems(3).SubItems(1) = "Name3" .ListItems(3).SubItems(2) = "00:00"End WithEnd SubPrivate Sub ListView1_DblClick()Dim i%i = ListView1.SelectedItem.IndexDebug.Print ListView1.ListItems(i).SubItems(1)End Sub