VB listbox 添加数据问题

现在 list1中有几个数据例如：
d
fs
gss
gs

list1.AddItem 只能在最后增加，那如果我想选中了 fs 然后就在 fs 下增加一个数据 abc 怎样做呢？

满意答案

Private Sub Command1_Click()
'代码中Text1.Text是一个文本框用以输入要添加的数据
Dim mIndex As Integer
If List1.ListCount = 0 Then
List1.AddItem Text1.Text
Else
If List1.ListIndex >= 0 Then
mIndex = List1.ListIndex
List1.AddItem Text1.Text, mIndex + 1
Else
List1.AddItem Text1.Text
End If
End If
End Sub

本答案可以直接运行