VB里如何读取txt文档的内容到listbox里

 我想用一个Command的键实现打开电脑里txt格式里的内容显示到listbox上,然后保存是可以把在listbox上修改过后内容覆盖保存到之前打开的txt文档中.删除就是可以把listbox里的选中的那一行内容删掉.   本人是菜鸟= = 求高手指点,或者有更好的方法的求指点一下,还有其他一些步骤可能要请教的,很简单,但是我不怎么会.可以的话希望可以加下好友帮我下,只要做完了我愿意高分回报= =

---

加偶的QQ：243387971....................我刚好有个一样的代码。

'#=============================================================
'# 函数:List
'# 作者:243387971
'# 版本:1.0
'# QQ:243387971
'# 作用:可以将任意顺序文件中培竖毁的内容读出。
'# 返回值:ListA(Integer)
'#==============================================================
Public Function ListA(Path As String, Sz() As String, objA As Object) As Integer '声明Path路径,Sz字符串数组,ObjA对纤森象形参
Dim a1 As String '一个临时变量
Dim Temp As String '呵呵，又是一个临时变量
Dim Js As Integer '饿，还是一个临时变量
Js = 0 '初始化获取行数变量值为0
Open Path For Input As #1 '输出list2.lis文件
'使用Js变量获取整个lis文件的长度
Do Until EOF(1) = True
Line Input #1, Temp
Js = Js + 1
Loop
Close #1
'-----------------------------------------------
Open Path For Input As #2
For i = 0 To Js \ 2 - 2
Line Input #2, a1
objA.AddItem a1
Next i
'-----------------------------------------------
'这里本想用For循环代替的，但好像容易溢出，鬼知道怎么回事
Line Input #2, Temp '将文本中间配备两行废话读进temp变量
Line Input #2, Temp '
'-----------------------------------------------
ReDim Sz(Js \ 2 - 2) '重新定义a2数组
For i2 = 0 To Js \ 2 - 2 'JS总行数减去两行废话剩下的再除以上面和下面两个
Line Input #2, Sz(i2)
Next i2
Close #2 '关闭文件
ListA = Js / 2 - 2 + 1
End Function

调用方法：

Dim ListTextNumber() As String

Private Sub Form_Load()
Dim ReturnList As Integer
ReturnList = ListA(App.Path & "\ListItem.Item", ListTextNumber, List1)
Me.Caption = "当前文件参数为 - " & ReturnList & " 个"
Text1.Text = "C"
End Sub
Private Sub List1_Click()
Text2.Text = ListTextNumber(List1.ListIndex) '因为都是从0开始的，所以相同
Text1.Text = List1.Text

---