Coding Fix

[S_A_M.1990]

Hey i am at college doing an assignment, i just need a little bit of help can some one help me put in a delete button in to my code some how or some how help me to be able to delete a record from interface.

Here is the form working


and here is the code

Private somedata As String


Private Sub Command3_Click()
Open "E:\Movies.txt" For Append As #1
Print #1, Text1.Text

Print #1, Text2.Text

Print #1, Text3.Text

Print #1, Text4.Text

Print #1, Text5.Text

Close #1
List1.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear

Call Form_Load
End Sub




Private Sub Form_Load()
Open "E:\Movies.txt" For Input As #1
Do While Not EOF(1)
Input #1, somedata
List1.AddItem somedata
Input #1, somedata
List2.AddItem somedata
Input #1, somedata
List3.AddItem somedata
Input #1, somedata
List4.AddItem somedata
Input #1, somedata
List5.AddItem somedata
Loop
Close #1
End Sub