如何修改列表框中指定行的数据？

看下面的动态图

自定义函数：

'=========================================================================

' 函数名称：  List_Edit

' 版 本 号：  1.0

' 函数功能：  本函数作用：修改 LIST 控件中指定行的数据

' 说    明：

' 引    用：  --

' 输入参数：  lstObject  必选，对象，    指定LIST控件的名称。

'             lngIndex   必选，长整型，  指定LIST控件的数据的行号。

'             strValue   必选，字符型，  指定要修改为的值。

' 注意事项：             参数 strValue 中的各列数据用“；”分隔

'

' 返回值  ：  无

'

' 如 LIST 有两列数据，可用下面的调用修改指定行的数据。

'

' 调用演示：  List_Edit Me.List1, Me.List1.ListIndex, "aaa;111"

'

' 创建日期：  2011-1-16 0:54

'

' 作    者：  鱼儿游游   QQ:7178000

'=========================================================================

Public Sub List_Edit(lstObject As Object, lngIndex As Long, strValue As String)

   If lngIndex < 0 Then Exit Sub

   lstObject.AddItem strValue, lngIndex    '在指定行的前面插入一行。

   lstObject.RemoveItem lngIndex + 1       '删除原来的行。

   lstObject.ListIndex = lngIndex          '恢复当前指针为原来的选中行。

End Sub

'删除所选行数据

Public Sub List_Del(lstObject As Object)

   Dim i As Long

   With lstObject

      For i = .ListCount - 1 To 0 Step -1

         If .Selected(i) Then .RemoveItem i

      Next i

   End With

End Sub