vb.net ıd şifre kayıt etme

If Me.CheckBox1.Checked Then
        Dim client As New WebClient
        client.UploadString("Save.dat", "1")
        client.UploadString("Usarname.ini", Me.TextBox1.Text)
        client.UploadString("Password.ini", Me.TextBox2.Text)
    Else
        Dim client2 As New WebClient
        client2.UploadString("Save.dat", "0")
        client2.UploadString("Usarname.ini", "")
        client2.UploadString("Password.ini", "")
    End If