|
Private Sub Command1_Click()Open App.Path & "\1.ini" For Output As #1Print #1, Text1.TextPrint #1, Text2.TextPrint #1, Text3.TextClose #1End SubPrivate Sub Form_Load()Dim s As StringOn Error GoTo err1Open App.Path & "\1.ini" For Input As #1Line Input #1, sText1.Text = sLine Input #1, sText2.Text = sLine Input #1,... |
