先增加索引数,然后从后往前移,插入你想插入的地方就行了啊

Option Explicit
Dim A As String
Dim B As Integer
Dim C As Integer
Dim I As Integer

Private Sub CMDADD_Click()
B = InputBox("想添加到第几行?")
C = List1.ListCount
If B < 0 Or B > C + 1 Then
InputBox ("请不要超过现有行数,请重新输入")
Else
If Text1.Text = "" Then
MsgBox ("请在文本框中输入内容")
Else
For I = C To B Step -1
List1.List(I) = List1.List(I - 1)
Next I
List1.AddItem Text1.Text, (B - 1)
End If
End If

End Sub

比较粗糙,但可以说明上面的问题了,下面是程序

I1EpsXUs.rar (1.84 KB) [求助] 请教listbox的additem方法的用法

谢谢，以后还请多指教啊，呵呵

嘿嘿，大家共勉，俺也刚学哦：）