Imports System.IO

Public Class frmPart2

   
    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        Dim InBuf As Integer
        Dim dataFile As String

        InBuf = FreeFile()
        FileOpen(InBuf, "a:\storeitems.txt", OpenMode.Input)

        Do Until EOF(InBuf)
            dataFile = LineInput(InBuf)  'read in an entire line using lineinput
            lbItems.Items.Add(dataFile)  'add the item just read into the listbox
        Loop

        FileClose(InBuf)
    End Sub

'------------------How to save data

 Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim OutBuf As Integer
        Dim x As Integer

        OutBuf = FreeFile()

        FileOpen(OutBuf, "a:\storeitems.txt", OpenMode.Output)

        For x = 0 To lbItems.Items.Count - 1
            PrintLine(OutBuf, lbItems.Items(x))
        Next

        FileClose(OutBuf)

    End Sub