在删除list项的时候错误 求解

Question

Private Sub List1_Click()
Text1.Text = List1
Text2.Text = List1
Text1.Text = MyLastReplace(Text1.Text, ".ogg", ".wav")
    Dim Ret As Long
    Form1.Refresh
    Ret = RSPOggPlay1.OGGVorbisToWav(Text2.Text, Text1.Text)
List1.RemoveItem List1.ListIndex
List1_Click
End Sub
-------------------------------
当运行到List1.RemoveItem List1.ListIndex的时候就提示 ：
------------------------
实时错误 “5”；
无效的过程调用或参数
----------------------
当我把List1_Click 这拿掉后就没问题了..........
于是求解决 

Answer 1

解决了
List1.Selected(0) = True