哪位大哥能给小弟我恢复所有在list1中被删除的项目的vb代码？多谢

Option Explicit
Private Type ListItem
    Num As Long     '需要
    Memo As String  '内容
End Type
Dim Record(0 To 999) As ListItem    '定义一个一千个元素的数组
'删除List选中的行
Private Sub Command1_Click()
    List1.RemoveItem List1.ListIndex
End Sub
'恢复list
Private Sub Command2_Click()
    Dim lngP As Long
    List1.Clear
    For lngP = 0 To 999
        List1.AddItem Record(lngP).Memo, lngP
    Next lngP
End Sub

Private Sub Form_Load()
    Dim lngP As Long
    List1.Clear
    For lngP = 0 To 999
        Record(lngP).Num = lngP
        Record(lngP).Memo = CStr(lngP)
        List1.AddItem Record(lngP).Memo, lngP
    Next lngP
End Sub