Remember password & username

[Braydok]

Shit, your right, forgive me, here is the full code:

In the sub connect_click()

Code:

Private Sub picConnect_Click()
If RPass.Value = 1 Then
Open "Data.ini" For Output As #f
Print #f, "[SETTINGS]"
Print #f, "Last User= "
Print #f, txtName
Print #f, "Last Password= "
Print #f, txtPassword
Close #f
Else
End If

Then add this into the form_load()

Code:

f = FreeFile

Dim n
Dim O
Dim usr
Dim t
Dim pass
On Error GoTo Error
Open "Data.ini" For Input As #f

Input #f, n
Input #f, O
Input #f, usr
Input #f, t
Input #f, pass
Close #f
RPass.Value = 1
txtName.Text = usr
txtPassword.Text = pass
Error:

Then up at the top, write this in:

Code:

public f as Integer

That works for me.
Is this code good?