[VB6] Evento del primo avvio del programma

[Ketto93]

Invio i codici così capisci meglio:

Private Sub Form_Initialize()
Open App.Path & "\start.ini" For Input As #1
Text2.Text = Input(LOF(1), #1)
Close #1
If Text2.Text = 0 Then
Unload Me
Form1.Show
End If
End Sub

Private Sub cmdCambiaHome_Click()
Open App.Path & "\homepage.ini" For Output As #1
Print #1, Text1.Text
Close #1
MsgBox "Home Page salvata con successo. Il tutto verrà aggiornato riavviando il browser. Tutto ciò vale anche per il tasto HOME", vbInformation
Open App.Path & "\start.ini" For Output As #1
Print #1, Text3.Text
Close #1
Unload Me
Form1.Show
End Sub