Public Class frmReadWriteTest
Inherits System.Windows.Forms.Form
Dim Save1, Save2, Save3 As String
Windows Form Designer generated code
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Save1 = txtOne.Text
Save2 = txtTwo.Text
Save3 = txtThree.Text
FileOpen(1, "test.txt", OpenMode.Output)
WriteLine(1, Save1, Save2, Save3)
FileClose(1)
End Sub
Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
FileOpen(1, "test.txt", OpenMode.Input)
Input(1, Save1)
Input(1, Save2)
Input(1, Save3)
FileClose(1)
txtFour.Text = Save1
txtFive.Text = Save2
txtSix.Text = Save3
End Sub
End Class