如何在list1控件中保存上次插入的数据项

Private Sub Form_Load() '读取文件
filepath = App.Path + "\data.inf" '配置文件路径
If Dir(filepath) = "" Then '当文件不存在时不读取
Exit Sub
End If
Open filepath For Input As #1
Do While Not EOF(1)
Line Input #1, linedata
list1.AddItem linedata
Loop
Close #1
End Sub

Private Sub Form_Unload(Cancel As Integer) '保存到文件
filepath = App.Path + "\data.inf" '配置文件路径
Open filepath For Output As #1
For i = 0 To list1.ListCount - 1
Print #1, list1.List(i)
Next
Close #1
End Sub

在程序目录创建一个文件（*.txt,*.ini,*.dat)，将程序.刚刚添加的项存储在创建的文件中即可。
根据你在添加的事件不同，一个将存储添加项的代码方在你添加程序项的事件中，在程序启动事件中，添加读文件到List控件中的代码。