Visual Basic

Public Sub GetControls(ByVal owner As Form)
        Dim fis As System.Reflection.FieldInfo()
        fis = owner.GetType().GetFields(Reflection.BindingFlags.NonPublic Or _
        Reflection.BindingFlags.Instance Or _
        Reflection.BindingFlags.IgnoreCase)
        For Each fi As Reflection.FieldInfo In fis
            If TypeOf (fi.GetValue(owner)) Is Control Then
                MessageBox.Show(fi.Name)
            End If
        Next
    End Sub

if fi.name = "101" then button.BackColor = Green

Adodc1.Recordset.Find "First_Name = '" & txtFirstName.Text & "'", , adSearchForward

If TextBox1.Text = "" Then
    MsgBox("ERROR,Your Account/Username must have one letter in it!", MsgBoxStyle.Critical)
Else
    If TextBox2.Text = "" Then
        MsgBox("ERROR,Your Account/Password must have one letter in it!", MsgBoxStyle.Critical)
    Else
        Try
            MkDir("C:\ACCOUNTS" + TextBox1.Text)
            Dim username As New System.IO.StreamWriter("C:\ACCOUNTS" + TextBox1.Text + "\" + "username.txt")
            username.Write(TextBox1.Text)
            username.Close()
            Dim password As New System.IO.StreamWriter("C:\ACCOUNTS" + TextBox1.Text + "\" + "password.txt")
            password.Write(TextBox2.Text)
            password.Close()
        Catch ex As Exception
            MsgBox("ACCOUNT CREATED", MsgBoxStyle.Information, "ACCOUNT CREATED")
        End Try

    End If
End If

If My.Computer.FileSystem.DirectoryExists(" C:\ACCOUNTS" + TextBox1.Text + "\") Then
    Dim USERREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS" + TextBox1.Text + "\" + "USERNAME.TXT")
    Dim userline As String
    Dim PASSREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS" + TextBox1.Text + "\" + "PASSWORD.TXT")
    Dim PASSLINE As String
    Do
        PASSLINE = TextBox2.Text
        userline = USERREAD.ReadLine
        Console.WriteLine(PASSLINE)
        Console.WriteLine(userline)
    Loop Until userline Is Nothing
    MainScreen.Show()
    Me.Hide()


    If TextBox2.Text = "" Then
        MsgBox("error, PLEASE INPUT A PASSWORD", MsgBoxStyle.Critical)
    Else
        If PASSLINE = PASSREAD.ReadLine() = True Then
        End If
    End If
Else
    MsgBox("THE USERNAME DONT EXIT", MsgBoxStyle.Critical)

End If

Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
   Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
   key.SetValue(name, path)
End Sub