Steam Account Switcher (With Source)

'Made By ImWhacky
'MPGH Exclusive

Imports System
Imports System.Xml
Public Class Form1
    Dim myXml As New XmlClass

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        myXml.Filename = ("SteamAccs.xml")
        myXml****ot = ("Main")
        FindAccounts()
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
        TabPage2.BackColor = TabPage1.BackColor
        Login_btn.BackColor = Add_btn.BackColor
    End Sub

    Public Sub FindAccounts()
        Dim xml_doc As New XmlDocument
        Dim nodelist As XmlNodeList
        Dim node As XmlElement
        xml_doc.Load("SteamAccs.xml")

        nodelist = xml_doc.SelectNodes("Main/*")
        For Each node In nodelist
            LoginList.Items.Add(node.LocalName.ToString)
        Next
    End Sub

    Private Sub Login_btn_Click(sender As Object, e As EventArgs) Handles Login_btn.Click
        Dim proc = Process.GetProcessesByName("Steam")
        For i As Integer = 0 To proc.Count - 1
            proc(i).Kill()
        Next i
        Process.Start("C:\Program Files (x86)\Steam\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
    End Sub

    Private Sub LoginList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LoginList.SelectedIndexChanged
        User_label.Text = myXml.ReadString(LoginList.Text, "UserID")
        PW_label.Text = myXml.ReadString(LoginList.Text, "Password")
    End Sub

    Private Sub Add_btn_Click(sender As Object, e As EventArgs) Handles Add_btn.Click
        If Section_txt.TextLength > 1 And UserID_txt.TextLength > 1 And PW_txt.TextLength > 1 Then
            myXml.WriteString(Section_txt.Text, "UserID", UserID_txt.Text)
            myXml.WriteString(Section_txt.Text, "Password", PW_txt.Text)
            FindAccounts()
        Else
            MsgBox("Fill in all the boxes")
        End If
    End Sub

    Private Sub PW_label_Click(sender As Object, e As EventArgs) Handles PW_label.Click

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
    End Sub

    Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
        Form2.Visible = True
    End Sub
End Class