[Outdated] Steam Account Switcher v4.1

Steam Account Switcher v4.1

Steam Account Switcher 4.1
By ImWhacky

How to use
1. Launch "Steam Account Switcher"
2. Select Your Steam Directory
3. Select Where You Want Your Account File To Be Saved.
4. Go to "Account" tab and enter account information (If you are not feeling safe about this, look below this and i have the source code, you can compile it yourself if you want just to be sure its not a key logger.)
5. Select the game you would like to auto-launch (Optional)
6. Double Click The Account You Want To Use (It Will Log You In)

Virus Scans:
Virus Total - Click here
Jotti - Click here

Screenshots:

Changelog:
v1.0
- Initial Release
- Released on mpgh.net to find and fix bugs
v2.0
- Added Color Customization.
- Added Logout button, simply logs you out of steam.
- Added automatic creation of SteamAccs.xml file,
no need to bring it from the zip file anymore!
- Changed Appearance of information screen
- Added options tab (To be expanded upon in the future)
- Added Account Created Confirmation Message
- Added "Show Password" option in add account page
If the checkbox is not checked, a hidden character will show instead
of the letters of the password.
- Fixed no colors showing bug
- Added "Remove Account" Option
- Fixed Error that occured when you used spaces while trying
to creat an account
- Removed all false positives in virus scan
v2.5
- Added Option to Choose Custom Account File Directory
- Added Steam Status Tab (Make Sure Steam Is Online)
- Added Steam Version Checker (Make Sure Your Steam Is Up
To Date!)
- Moved "Remove Account" To Account Tab
- Organized Options Tab
- Made Window Bigger (Making Room For New Features in
Next Update!)
- Fixed Error That Occured While Making Account File
- Fixed Color Selection Error
- Fixed Error On Launch Caused By Sloppy Code (My Bad)
- Fixed Errors That Occured While Trying To Remove Account
(There Were A Lot So I Didnt List Them All)
v3.0
- Added Game Selector (Automatically Launches Game At Steam Startup)
- Squashed Some Bugs
- Added Directory Clear Confirmation
- Cleaned Up Options Screen
- Re-Wrote Login code #toomessy
- Added Some New Hidden Features
- Increased Performance/Speed Of SAS
- Switched "Steam Info" and "Options" tab
- Fixed Bug Where File Directory Dialogs Were Not Showing Up
- Decreased SAS Startup Time
- Added Option To Check Steam Status instead of doing it automatically! (It speeds up the program a lot)
- Fixed Bug Where It Will Not Log You In When You Log In Again... (im an idiot and disabled it for testing purposes and never re-enabled it)
v4.0
- UI Re-Design (Looks Cleaner)
- Added Account Types (Main, Smurf, Other)
- Added Account Type Pictures (Display Account Type By Logo)
- Added Game Pictures (Game Selector)
- Added Account Editing (Edit Account Information Without Going into Account File)
- Added Transparency/Opacity Settings
- Added File Encryption, (Its in the Info Menu under Encryption/Decryption Tab)
- Added link in the info menu which goes to the latest version download page
- Removed Login button (Double Click Name Of Account And It Will Login To It)
- Removed Font (Causing Errors On Some Machines)
- Removed "Steam Info" Tab Links to steam server status now in information menu
- Fixed errors and crashes that were caused by colors (Some may still exist, just fixed the ones I knew about)
- All settings now save on program closing
- Changed "Restore Default Settings" message
- Made tool bigger (Needed Room For New Features)
v4.1
- Removed all external links (against mpgh policy my bad)
- Removed transparency options because they were buggy af
- Moved Encryption/Decryption to main menu

Q&A
Q:Will This Steal My Steam Account Information?
A:No, if you look at the source code, there is no sending of any information,
Q:How does this work?
A:This program stores your inputed account information in a file, when you attempt to log in, it reads the account information from the file and automatically enters it into steams login dialog.
Q:How often do you update this program?
A:Not very often, if there is an extreme bug, then i will release an updated version of the program that has the bug patched. other than that, i usually wait until i add over 10 new features to update the program.
Q:Will you give me the project files?
A:No, the source code is all that i give out, if you want the project files, you can decompile it yourself... its not hard.

Source :
I always release the source codes for my projects to make you feel as safe as possible.

v1.0

Code:

'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

v2.0

Code:

'Made By ImWhacky
'MPGH Exclusive

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

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.SteamLocation.Length < 1 Then
            MsgBox("Please Select Your Steam Directory")
            FolderBrowserDialog1.ShowDialog()
            FolderBrowserDialog1.ShowNewFolderButton = False
            My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
            TextBox1.Text = My.Settings.SteamLocation + "\Steam.exe"
            My.Settings.Save()

        Else
            TextBox1.Text = FolderBrowserDialog1.SelectedPath.ToString
        End If
        TextBox1.Text = My.Settings.SteamLocation + "\Steam.exe"
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        If My.Computer.FileSystem.FileExists("SteamAccs.xml") Then
            myXml.Filename = ("SteamAccs.xml")
            myXml****ot = ("Main")
            FindAccounts()
        Else
            Dim path As String = "SteamAccs.xml"

            ' Create or overwrite the file.
            Dim fs As FileStream = File.Create(path)

            ' Add text to the file.
            Dim info As Byte() = New UTF8Encoding(True).GetBytes("<?xml version='1.0' encoding='utf-8' standalone='yes'?>" & vbNewLine & "<Main>" & vbNewLine & "</Main>")
            fs.Write(info, 0, info.Length)
            fs.Close()
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")

        End If
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        End If
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
        TabPage1.BackColor = My.Settings.TabColor
        TabPage2.BackColor = My.Settings.TabColor
        TabPage3.BackColor = My.Settings.TabColor
        Login_btn.BackColor = My.Settings.ButtonColor
        Add_btn.BackColor = My.Settings.ButtonColor
        Button1.BackColor = My.Settings.ButtonColor
        Button2.BackColor = My.Settings.ButtonColor
        Button3.BackColor = My.Settings.ButtonColor
        Button4.BackColor = My.Settings.ButtonColor
        Button5.BackColor = My.Settings.ButtonColor
        Button6.BackColor = My.Settings.ButtonColor
        Button7.BackColor = My.Settings.ButtonColor
        Button8.BackColor = My.Settings.ButtonColor

    End Sub

    Private Function apppath() As String
        Throw New NotImplementedException()
    End Function

    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)
            ComboBox1.Items.Add(node.LocalName.ToString)
        Next
    End Sub

    Private Sub Login_btn_Click(sender As Object, e As EventArgs) Handles Login_btn.Click
        If User_label.Text = "(Select Account)" Then
            MsgBox("Please Select An Account")
        Else
            Dim proc = Process.GetProcessesByName("Steam")
            For i As Integer = 0 To proc.Count - 1
                proc(i).Kill()
            Next i
            Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
        End If
    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.Text.Contains(" ") Then
            MsgBox("Please Remove all spaces!")
            Return
        End If
        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()
            MsgBox("Account Successfully Added!")
            Section_txt.Clear()
            UserID_txt.Clear()
            PW_txt.Clear()
            ComboBox1.Items.Clear()
            ComboBox1.Text = "Select Account"
            LoginList.Items.Clear()
            LoginList.Text = "Select Account"
            FindAccounts()

        Else
            MsgBox("Please 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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pList() As System.Diagnostics.Process =
            System.Diagnostics.Process.GetProcessesByName("steam")
        For Each proc As System.Diagnostics.Process In pList
            proc.Kill()
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim TabColor As New ColorDialog
        TabColor.ShowDialog()
        TabPage1.BackColor = TabColor.Color
        TabPage2.BackColor = TabColor.Color
        TabPage3.BackColor = TabColor.Color
        My.Settings.TabColor = TabColor.Color
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ButtonColor As New ColorDialog
        ButtonColor.ShowDialog()
        Login_btn.BackColor = ButtonColor.Color
        Add_btn.BackColor = ButtonColor.Color
        Button1.BackColor = ButtonColor.Color
        Button2.BackColor = ButtonColor.Color
        Button3.BackColor = ButtonColor.Color
        Button4.BackColor = ButtonColor.Color
        Button5.BackColor = ButtonColor.Color
        Button6.BackColor = ButtonColor.Color
        My.Settings.ButtonColor = ButtonColor.Color
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        My.Settings.ButtonColor = Color.Gray
        My.Settings.TabColor = Color.Silver
        Dim resp As MsgBoxResult
        resp = MsgBox("Colors have been set to default" & vbNewLine & "For changes to take effect, you need to restart the program" & vbNewLine & " " & vbNewLine & "Restart Program Now?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Form2.TabPage1.BackColor = My.Settings.TabColor
        Form2.TabPage2.BackColor = My.Settings.TabColor
        Form2.Visible = True
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        Else
            PW_txt.PasswordChar = ""
        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If ComboBox1.Text = "Select Account" Then
            MsgBox("Please Select An Account")
            Return
        End If
        Dim doc As XDocument = XDocument.Load("SteamAccs.xml")
        doc****ot.Element(ComboBox1.Text).Remove()
        doc.Save("SteamAccs.xml")
        MsgBox("Account Successfully Removed!")
        ComboBox1.Items.Clear()
        ComboBox1.Text = "Select Account"
        LoginList.Items.Clear()
        LoginList.Text = "Select Account"
        FindAccounts()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        FolderBrowserDialog1.ShowDialog()
        FolderBrowserDialog1.ShowNewFolderButton = False
        If FolderBrowserDialog1.SelectedPath = "" Then
            Return
        End If
        My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
        My.Settings.Save()
        TextBox1.Text = My.Settings.SteamLocation
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        My.Settings.SteamLocation = ""
    End Sub
End Class

v2.5

There may or may not be hints of v3.0 In here

Code:

'Made By ImWhacky
'MPGH Exclusive

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

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.SteamLocation.Length < 1 Then
            MsgBox("Please Select Your Steam Directory")
            FolderBrowserDialog1.ShowDialog()
            My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
            My.Settings.Save()

        Else
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        End If
        If My.Settings.AccountFile.Length < 1 Then
            MsgBox("Please Select/Create the folder where you want your account file to be saved")
            FolderBrowserDialog2.ShowDialog()
            My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
            My.Settings.Save()
        Else
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        End If
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        If My.Computer.FileSystem.FileExists(My.Settings.AccountFile + "\" + "SteamAccs.xml") Then
            myXml.Filename = (My.Settings.AccountFile + "\" + "SteamAccs.xml")
            myXml****ot = ("Main")
            FindAccounts()
        Else
            Dim path As String = My.Settings.AccountFile + "\" + "SteamAccs.xml"
            Dim fs As FileStream = File.Create(path)
            Dim info As Byte() = New UTF8Encoding(True).GetBytes("<?xml version='1.0' encoding='utf-8' standalone='yes'?>" & vbNewLine & "<Main>" & vbNewLine & "</Main>")
            fs.Write(info, 0, info.Length)
            fs.Close()
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")

        End If
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        End If
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
        TabPage1.BackColor = My.Settings.TabColor
        TabPage2.BackColor = My.Settings.TabColor
        TabPage3.BackColor = My.Settings.TabColor
        TabPage4.BackColor = My.Settings.TabColor
        Login_btn.BackColor = My.Settings.ButtonColor
        Add_btn.BackColor = My.Settings.ButtonColor
        Button1.BackColor = My.Settings.ButtonColor
        Button2.BackColor = My.Settings.ButtonColor
        Button3.BackColor = My.Settings.ButtonColor
        Button4.BackColor = My.Settings.ButtonColor
        Button5.BackColor = My.Settings.ButtonColor
        Button6.BackColor = My.Settings.ButtonColor
        Button7.BackColor = My.Settings.ButtonColor
        Button8.BackColor = My.Settings.ButtonColor
        Button9.BackColor = My.Settings.ButtonColor
        Button10.BackColor = My.Settings.ButtonColor
        Button11.BackColor = My.Settings.ButtonColor
        Timer1.Start()

        If My.Computer.Network.Ping("208.78.164.12") Then
            Label18.ForeColor = Color.Green
            Label18.Text = "Online"
        Else
            Label18.ForeColor = Color.Red
            Label18.Text = "Offline"
        End If
        If My.Computer.Network.Ping("72.165.61.187") Then
            Label16.ForeColor = Color.Green
            Label16.Text = "Online"
        Else
            Label16.ForeColor = Color.Red
            Label16.Text = "Offline"
        End If
    End Sub

    Private Function apppath() As String
        Throw New NotImplementedException()
    End Function

    Public Sub FindAccounts()
        Dim xml_doc As New XmlDocument
        Dim nodelist As XmlNodeList
        Dim node As XmlElement
        xml_doc.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")

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

    Private Sub Login_btn_Click(sender As Object, e As EventArgs) Handles Login_btn.Click
        If User_label.Text = "(Select Account)" Then
            MsgBox("Please Select An Account")
        Else
            'Dim proc = Process.GetProcessesByName("Steam")
            'For i As Integer = 0 To proc.Count - 1
            '    proc(i).Kill()
            'Next i
            'If CheckBox2.Checked = False Then
            Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
            'Else
            'Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
            'Process.Start(My.Settings.SteamLocation + "\Steam.exe", "steam://run/730")
            'Dim sCommand As String
            'sCommand = "Start 'C:\Program Files (x86)\Steam\Steam.exe' steam://run/730"
            'Shell("cmd.exe /c" & sCommand)
            ' Process.Start("cmd", "Start 'C:\Program Files (x86)\Steam\Steam.exe' steam://run/" + Label10.Text)
            'End If
        End If
    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.Text.Contains(" ") Then
            MsgBox("Please Remove all spaces!")
            Return
        End If
        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()
            MsgBox("Account Successfully Added!")
            Section_txt.Clear()
            UserID_txt.Clear()
            PW_txt.Clear()
            ComboBox1.Items.Clear()
            ComboBox1.Text = "Select Account"
            LoginList.Items.Clear()
            LoginList.Text = "Select Account"
            FindAccounts()

        Else
            MsgBox("Please 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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pList() As System.Diagnostics.Process =
            System.Diagnostics.Process.GetProcessesByName("steam")
        For Each proc As System.Diagnostics.Process In pList
            proc.Kill()
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim TabColor As New ColorDialog
        TabColor.ShowDialog()
        If TabColor.Color.IsEmpty Then
            My.Settings.TabColor = Color.Silver
            TabPage1.BackColor = Color.Silver
            TabPage2.BackColor = Color.Silver
            TabPage3.BackColor = Color.Silver
        Else
            TabPage1.BackColor = TabColor.Color
            TabPage2.BackColor = TabColor.Color
            TabPage3.BackColor = TabColor.Color
            TabPage4.BackColor = TabColor.Color
            My.Settings.TabColor = TabColor.Color
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ButtonColor As New ColorDialog
        ButtonColor.ShowDialog()
        Login_btn.BackColor = ButtonColor.Color
        Add_btn.BackColor = ButtonColor.Color
        Button1.BackColor = ButtonColor.Color
        Button2.BackColor = ButtonColor.Color
        Button3.BackColor = ButtonColor.Color
        Button4.BackColor = ButtonColor.Color
        Button5.BackColor = ButtonColor.Color
        Button6.BackColor = ButtonColor.Color
        Button7.BackColor = ButtonColor.Color
        Button8.BackColor = ButtonColor.Color
        Button9.BackColor = ButtonColor.Color
        Button10.BackColor = ButtonColor.Color
        Button11.BackColor = ButtonColor.Color
        My.Settings.ButtonColor = ButtonColor.Color
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        My.Settings.ButtonColor = Color.Gray
        My.Settings.TabColor = Color.Silver
        Dim resp As MsgBoxResult
        resp = MsgBox("Colors have been set to default" & vbNewLine & "For changes to take effect, you need to restart the program" & vbNewLine & " " & vbNewLine & "Restart Program Now?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Form2.TabPage1.BackColor = My.Settings.TabColor
        Form2.TabPage2.BackColor = My.Settings.TabColor
        Form2.TabPage3.BackColor = My.Settings.TabColor
        Form2.Visible = True
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        Else
            PW_txt.PasswordChar = "?"
        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If ComboBox1.Text = "Select Account" Then
            MsgBox("Please Select An Account")
            Return
        End If
        Dim doc As XDocument = XDocument.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        doc****ot.Element(ComboBox1.Text).Remove()
        doc.Save(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        MsgBox("Account Successfully Removed!")
        ComboBox1.Items.Clear()
        ComboBox1.Text = "Select Account"
        LoginList.Items.Clear()
        LoginList.Text = "Select Account"
        FindAccounts()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        FolderBrowserDialog1.ShowDialog()
        FolderBrowserDialog1.ShowNewFolderButton = False
        If FolderBrowserDialog1.SelectedPath = "" Then
            Return
        End If
        My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
        My.Settings.Save()
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        My.Settings.SteamLocation = ""
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        FolderBrowserDialog2.ShowDialog()
        FolderBrowserDialog2.ShowNewFolderButton = False
        If FolderBrowserDialog2.SelectedPath = "" Then
            Return
        End If
        My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
        My.Settings.Save()
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        My.Settings.AccountFile = ""
    End Sub

    ' Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    ' LoginList.Visible = False
    'GroupBox1.Visible = False
    ' Login_btn.Visible = False
    'GameSelection.Show()
    'GameSelection.Button1.BackColor = My.Settings.ButtonColor
    'GameSelection.BackColor = My.Settings.TabColor
    ' End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs) Handles Label12.Click
        System.Diagnostics.Process.Start("https://steamstat.us/")
    End Sub

    'Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    'If ListBox1.Text = "Dota 2" Then
    '        Label10.Text = "570"
    '       Label2.Text = "570"
    'End If
    'If ListBox1.Text = "Counter-Strike: Global Offensive" Then
    '       Label10.Text = "730"
    '      Label2.Text = "730"
    'End If
    'If ListBox1.Text = "Team Fortress 2" Then
    '       Label10.Text = "440"
    '      Label2.Text = "440"
    'End If
    'If ListBox1.Text = "ARK: Survival Evolved" Then
    '       Label10.Text = "346110"
    '      Label2.Text = "346110"
    'End If
    'If ListBox1.Text = "Garry's Mod" Then
    '       Label10.Text = "4000"
    '      Label2.Text = "4000"
    'End If
    'If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
    '       Label10.Text = "72850"
    '      Label2.Text = "72850"
    'End If
    'If ListBox1.Text = "Grand Theft Auto V" Then
    '       Label10.Text = "271590"
    '      Label2.Text = "271590"
    'End If
    'If ListBox1.Text = "Warframe" Then
    '       Label10.Text = "230410"
    '      Label2.Text = "230410"
    'End If
    'End Sub
End Class

v3.0

Code:

'Made By ImWhacky
'MPGH Exclusive

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

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer2.Start()
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        If My.Settings.SteamLocation.Length < 1 Then
            MsgBox("Please Select Your Steam Directory.", vbSystemModal)
            FolderBrowserDialog1.ShowDialog()
            My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
            My.Settings.Save()

        Else
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        End If
        If My.Settings.AccountFile.Length < 1 Then
            MsgBox("Please Select Where you want your Account File To Be Saved.", vbSystemModal)
            FolderBrowserDialog2.ShowDialog()
            My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
            My.Settings.Save()
        Else
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        End If
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        If My.Computer.FileSystem.FileExists(My.Settings.AccountFile + "\" + "SteamAccs.xml") Then
            myXml.Filename = (My.Settings.AccountFile + "\" + "SteamAccs.xml")
            myXml****ot = ("Main")
            FindAccounts()
        Else
            Dim path As String = My.Settings.AccountFile + "\" + "SteamAccs.xml"
            Dim fs As FileStream = File.Create(path)
            Dim info As Byte() = New UTF8Encoding(True).GetBytes("<?xml version='1.0' encoding='utf-8' standalone='yes'?>" & vbNewLine & "<Main>" & vbNewLine & "</Main>")
            fs.Write(info, 0, info.Length)
            fs.Close()
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")

        End If
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        End If
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
        TabPage1.BackColor = My.Settings.TabColor
        TabPage2.BackColor = My.Settings.TabColor
        TabPage3.BackColor = My.Settings.TabColor
        TabPage4.BackColor = My.Settings.TabColor
        Login_btn.BackColor = My.Settings.ButtonColor
        Add_btn.BackColor = My.Settings.ButtonColor
        Button1.BackColor = My.Settings.ButtonColor
        Button2.BackColor = My.Settings.ButtonColor
        Button3.BackColor = My.Settings.ButtonColor
        Button4.BackColor = My.Settings.ButtonColor
        Button5.BackColor = My.Settings.ButtonColor
        Button6.BackColor = My.Settings.ButtonColor
        Button7.BackColor = My.Settings.ButtonColor
        Button8.BackColor = My.Settings.ButtonColor
        Button9.BackColor = My.Settings.ButtonColor
        Button10.BackColor = My.Settings.ButtonColor
        Button11.BackColor = My.Settings.ButtonColor
        Button12.BackColor = My.Settings.ButtonColor
        Button13.BackColor = My.Settings.ButtonColor
        Button14.BackColor = My.Settings.ButtonColor
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
    End Sub
    Private Function apppath() As String
        Throw New NotImplementedException()
    End Function
    Public Sub FindAccounts()
        Dim xml_doc As New XmlDocument
        Dim nodelist As XmlNodeList
        Dim node As XmlElement
        xml_doc.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")

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

    Private Sub Login_btn_Click(sender As Object, e As EventArgs) Handles Login_btn.Click
        If User_label.Text = "(Select Account)" Then
            MsgBox("Please Select An Account")
        Else
            Dim proc = Process.GetProcessesByName("Steam")
            For i As Integer = 0 To proc.Count - 1
                proc(i).Kill()
            Next i
            If Label10.Text = "-" Then
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
            Else
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
                System.Threading.Thread.Sleep(10000)
                MsgBox("Click 'Ok' When You Want To Launch Your Game!", vbSystemModal,)
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-applaunch " + Label21.Text)
            End If
        End If
    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.Text.Contains(" ") Then
            MsgBox("Please Remove all spaces!")
            Return
        End If
        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()
            MsgBox("Account Successfully Added!")
            Section_txt.Clear()
            UserID_txt.Clear()
            PW_txt.Clear()
            ComboBox1.Items.Clear()
            ComboBox1.Text = "Select Account"
            LoginList.Items.Clear()
            LoginList.Text = "Select Account"
            FindAccounts()

        Else
            MsgBox("Please 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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pList() As System.Diagnostics.Process =
            System.Diagnostics.Process.GetProcessesByName("steam")
        For Each proc As System.Diagnostics.Process In pList
            proc.Kill()
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim TabColor As New ColorDialog
        TabColor.ShowDialog()
        If TabColor.Color.IsEmpty Then
            My.Settings.TabColor = Color.Silver
            TabPage1.BackColor = Color.Silver
            TabPage2.BackColor = Color.Silver
            TabPage3.BackColor = Color.Silver
        Else
            TabPage1.BackColor = TabColor.Color
            TabPage2.BackColor = TabColor.Color
            TabPage3.BackColor = TabColor.Color
            TabPage4.BackColor = TabColor.Color
            My.Settings.TabColor = TabColor.Color
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ButtonColor As New ColorDialog
        ButtonColor.ShowDialog()
        Login_btn.BackColor = ButtonColor.Color
        Add_btn.BackColor = ButtonColor.Color
        Button1.BackColor = ButtonColor.Color
        Button2.BackColor = ButtonColor.Color
        Button3.BackColor = ButtonColor.Color
        Button4.BackColor = ButtonColor.Color
        Button5.BackColor = ButtonColor.Color
        Button6.BackColor = ButtonColor.Color
        Button7.BackColor = ButtonColor.Color
        Button8.BackColor = ButtonColor.Color
        Button9.BackColor = ButtonColor.Color
        Button10.BackColor = ButtonColor.Color
        Button11.BackColor = ButtonColor.Color
        Button12.BackColor = ButtonColor.Color
        Button13.BackColor = ButtonColor.Color
        Button14.BackColor = ButtonColor.Color
        My.Settings.ButtonColor = ButtonColor.Color
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        My.Settings.ButtonColor = Color.Gray
        My.Settings.TabColor = Color.Silver
        Dim resp As MsgBoxResult
        resp = MsgBox("Colors have been set to default" & vbNewLine & "For changes to take effect, you need to restart the program" & vbNewLine & " " & vbNewLine & "Restart Program Now?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Form2.TabPage1.BackColor = My.Settings.TabColor
        Form2.TabPage2.BackColor = My.Settings.TabColor
        Form2.TabPage3.BackColor = My.Settings.TabColor
        Form2.Visible = True
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        Else
            PW_txt.PasswordChar = "?"
        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If ComboBox1.Text = "Select Account" Then
            MsgBox("Please Select An Account")
            Return
        End If
        Dim doc As XDocument = XDocument.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        doc****ot.Element(ComboBox1.Text).Remove()
        doc.Save(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        MsgBox("Account Successfully Removed!")
        ComboBox1.Items.Clear()
        ComboBox1.Text = "Select Account"
        LoginList.Items.Clear()
        LoginList.Text = "Select Account"
        FindAccounts()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        FolderBrowserDialog1.ShowDialog()
        FolderBrowserDialog1.ShowNewFolderButton = False
        If FolderBrowserDialog1.SelectedPath = "" Then
            Return
        End If
        My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
        My.Settings.Save()
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim resp As MsgBoxResult
        resp = MsgBox("Are you sure that you want to clear your steam file directory?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            My.Settings.SteamLocation = ""
            TextBox1.Text = ""
        Else
            Return
        End If
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        FolderBrowserDialog2.ShowDialog()
        FolderBrowserDialog2.ShowNewFolderButton = False
        If FolderBrowserDialog2.SelectedPath = "" Then
            Return
        End If
        My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
        My.Settings.Save()
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim resp As MsgBoxResult
        resp = MsgBox("Are you sure that you want to clear the SAS files directory?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            My.Settings.AccountFile = ""
            TextBox2.Text = ""
        Else
            Return
        End If
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        LoginList.Visible = False
        GroupBox1.Visible = False
        Login_btn.Visible = False
        ListBox1.Visible = True
        Label9.Visible = True
        Label10.Visible = True
        Button11.Visible = False
        Button13.Visible = True
        Button14.Visible = True
    End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs) Handles Label12.Click
        System.Diagnostics.Process.Start("https://steamstat.us/")
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If ListBox1.Text = "Dota 2" Then
            Label10.Text = "570"
            Label21.Text = "570"
        End If
        If ListBox1.Text = "Counter-Strike: Global Offensive" Then
            Label10.Text = "730"
            Label21.Text = "730"
        End If
        If ListBox1.Text = "Team Fortress 2" Then
            Label10.Text = "440"
            Label21.Text = "440"
        End If
        If ListBox1.Text = "ARK: Survival Evolved" Then
            Label10.Text = "346110"
            Label21.Text = "346110"
        End If
        If ListBox1.Text = "Garry's Mod" Then
            Label10.Text = "4000"
            Label21.Text = "4000"
        End If
        If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
            Label10.Text = "72850"
            Label21.Text = "72850"
        End If
        If ListBox1.Text = "Grand Theft Auto V" Then
            Label10.Text = "271590"
            Label21.Text = "271590"
        End If
        If ListBox1.Text = "Warframe" Then
            Label10.Text = "230410"
            Label21.Text = "230410"
        End If
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        LoginList.Visible = True
        GroupBox1.Visible = True
        Login_btn.Visible = True
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Button11.Visible = True
        Timer1.Start()
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        LoginList.Visible = True
        GroupBox1.Visible = True
        Login_btn.Visible = True
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Button11.Visible = True
        Label10.Text = "-"
        Label21.Text = "-"
        Timer1.Stop()
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If ListBox1.Text = "Dota 2" Then
            Label10.Text = "570"
        End If
        If ListBox1.Text = "Counter-Strike: Global Offensive" Then
            Label10.Text = "730"
        End If
        If ListBox1.Text = "Team Fortress 2" Then
            Label10.Text = "440"
        End If
        If ListBox1.Text = "ARK: Survival Evolved" Then
            Label10.Text = "346110"
        End If
        If ListBox1.Text = "Garry's Mod" Then
            Label10.Text = "4000"
        End If
        If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
            Label10.Text = "72850"
        End If
        If ListBox1.Text = "Grand Theft Auto V" Then
            Label10.Text = "271590"
        End If
        If ListBox1.Text = "Warframe" Then
            Label10.Text = "230410"
        End If
    End Sub

    Private Sub Label23_Click(sender As Object, e As EventArgs) Handles Label23.Click
        If My.Computer.Network.Ping("208.78.164.12") Then
            Label18.ForeColor = Color.Green
            Label18.Text = "Online"
        Else
            Label18.ForeColor = Color.Red
            Label18.Text = "Offline"
        End If
        If My.Computer.Network.Ping("72.165.61.187") Then
            Label16.ForeColor = Color.Green
            Label16.Text = "Online"
        Else
            Label16.ForeColor = Color.Red
            Label16.Text = "Offline"
        End If
        If Label16.Text = "Online" Then
            Label14.ForeColor = Color.Green
            Label14.Text = "Up To Date"
        Else
            Label14.ForeColor = Color.Green
            Label14.Text = "Up To Date"
        End If
    End Sub

End Class

v4.0

Code:

'Made By ImWhacky
'MPGH Exclusive
Imports System
Imports System.Security
Imports System.Security.Cryptography
Imports System.Runtime.InteropServices
Imports System.Security.AccessControl
Imports System.Xml
Imports System****
Imports System.Text


Public Class Form1
    Dim myXml As New XmlClass
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TrackBar1.Value = My.Settings.Transparency
        Label26.Text = TrackBar1.Value
        Me.Opacity = My.Settings.Transparency * 0.01
        Form2.Opacity = My.Settings.Transparency * 0.01
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Label22.Visible = False
        PictureBox3.Visible = False
        If My.Settings.SteamLocation.Length < 1 Then
            MsgBox("Please Select Your Steam Directory.", vbSystemModal)
            FolderBrowserDialog1.ShowDialog()
            My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
            My.Settings.Save()

        Else
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        End If
        If My.Settings.AccountFile.Length < 1 Then
            MsgBox("Please select where you want your account file to be saved.", vbSystemModal)
            FolderBrowserDialog2.ShowDialog()
            My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
            My.Settings.Save()
        Else
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        End If
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        If My.Computer.FileSystem.FileExists(My.Settings.AccountFile + "\" + "SteamAccs.xml") Then
            myXml.Filename = (My.Settings.AccountFile + "\" + "SteamAccs.xml")
            myXml****ot = ("Main")
            FindAccounts()
        Else
            Dim path As String = My.Settings.AccountFile + "\" + "SteamAccs.xml"
            Dim fs As FileStream = File.Create(path)
            Dim info As Byte() = New UTF8Encoding(True).GetBytes("<?xml version='1.0' encoding='utf-8' standalone='yes'?>" & vbNewLine & "<Main>" & vbNewLine & "</Main>")
            fs.Write(info, 0, info.Length)
            fs.Close()
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")

        End If
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        End If
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
        TabPage1.BackColor = My.Settings.TabColor
        TabPage2.BackColor = My.Settings.TabColor
        TabPage3.BackColor = My.Settings.TabColor
        Add_btn.BackColor = My.Settings.ButtonColor
        Button1.BackColor = My.Settings.ButtonColor
        Button2.BackColor = My.Settings.ButtonColor
        Button3.BackColor = My.Settings.ButtonColor
        Button4.BackColor = My.Settings.ButtonColor
        Button5.BackColor = My.Settings.ButtonColor
        Button6.BackColor = My.Settings.ButtonColor
        Button7.BackColor = My.Settings.ButtonColor
        Button8.BackColor = My.Settings.ButtonColor
        Button9.BackColor = My.Settings.ButtonColor
        Button10.BackColor = My.Settings.ButtonColor
        Button11.BackColor = My.Settings.ButtonColor
        Button12.BackColor = My.Settings.ButtonColor
        Button13.BackColor = My.Settings.ButtonColor
        Button14.BackColor = My.Settings.ButtonColor
        Button15.BackColor = My.Settings.ButtonColor
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
    End Sub


    Private Function apppath() As String
        Throw New NotImplementedException()
    End Function
    Public Sub FindAccounts()
        Dim xml_doc As New XmlDocument
        Dim nodelist As XmlNodeList
        Dim node As XmlElement
        xml_doc.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")

        nodelist = xml_doc.SelectNodes("Main/*")
        For Each node In nodelist
            ComboBox3.Items.Add(node.LocalName.ToString)
            ComboBox1.Items.Add(node.LocalName.ToString)
            ListBox2.Items.Add(node.LocalName.ToString)
        Next
    End Sub
    Private Sub Add_btn_Click(sender As Object, e As EventArgs) Handles Add_btn.Click
        If Section_txt.Text.Contains(" ") Then
            MsgBox("Please remove all spaces!")
            Return
        End If
        If ComboBox2.Text = "Select Account Type" Then
            MsgBox("Please select account type")
            Return
        End If
        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)
            myXml.WriteString(Section_txt.Text, "AccountType", ComboBox2.Text)
            FindAccounts()
            MsgBox("Account Successfully Added!")
            Section_txt.Clear()
            UserID_txt.Clear()
            PW_txt.Clear()
            ComboBox1.Items.Clear()
            ComboBox1.Text = "Select Account"
            ComboBox2.Text = "Select Account Type"
            PictureBox1.BackgroundImage = Nothing
            ComboBox3.Items.Clear()
            ComboBox3.Text = "Select Account"
            ListBox2.Items.Clear()
            ListBox2.Items.Clear()
            FindAccounts()
        Else
            MsgBox("Please 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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pList() As System.Diagnostics.Process =
            System.Diagnostics.Process.GetProcessesByName("steam")
        For Each proc As System.Diagnostics.Process In pList
            proc.Kill()
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim TabColor As New ColorDialog
        TabColor.ShowDialog()
        If TabColor.Color = Nothing Then
            My.Settings.TabColor = Color.Silver
            TabPage1.BackColor = Color.Silver
            TabPage2.BackColor = Color.Silver
            TabPage3.BackColor = Color.Silver

        Else
            TabPage1.BackColor = TabColor.Color
            TabPage2.BackColor = TabColor.Color
            TabPage3.BackColor = TabColor.Color
            Form2.TabPage1.BackColor = TabColor.Color
            Form2.TabPage2.BackColor = TabColor.Color
            Form2.TabPage3.BackColor = TabColor.Color
            Form2.TabPage4.BackColor = TabColor.Color
            My.Settings.TabColor = TabColor.Color
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ButtonColor As New ColorDialog
        ButtonColor.ShowDialog()
        Form2.Button1.BackColor = ButtonColor.Color
        Form2.Button2.BackColor = ButtonColor.Color
        Add_btn.BackColor = ButtonColor.Color
        Button1.BackColor = ButtonColor.Color
        Button2.BackColor = ButtonColor.Color
        Button3.BackColor = ButtonColor.Color
        Button4.BackColor = ButtonColor.Color
        Button5.BackColor = ButtonColor.Color
        Button6.BackColor = ButtonColor.Color
        Button7.BackColor = ButtonColor.Color
        Button8.BackColor = ButtonColor.Color
        Button9.BackColor = ButtonColor.Color
        Button10.BackColor = ButtonColor.Color
        Button11.BackColor = ButtonColor.Color
        Button12.BackColor = ButtonColor.Color
        Button13.BackColor = ButtonColor.Color
        Button14.BackColor = ButtonColor.Color
        Button15.BackColor = ButtonColor.Color
        My.Settings.ButtonColor = ButtonColor.Color
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        My.Settings.Transparency = 100
        My.Settings.ButtonColor = Color.Gray
        My.Settings.TabColor = Color.Silver
        Dim resp As MsgBoxResult
        resp = MsgBox("Appearance settings have been set to default, for changes to take effect, you need to restart the program" & vbNewLine & " " & vbNewLine & "Restart Program Now?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")
        Else
            MsgBox("Changes will be applied on next launch")
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Form2.TabPage1.BackColor = My.Settings.TabColor
        Form2.TabPage2.BackColor = My.Settings.TabColor
        Form2.TabPage3.BackColor = My.Settings.TabColor
        Form2.TabPage4.BackColor = My.Settings.TabColor
        Form2.Button1.BackColor = My.Settings.ButtonColor
        Form2.Button2.BackColor = My.Settings.ButtonColor
        Form2.Opacity = My.Settings.Transparency * 0.01
        Form2.TextBox3.Clear()
        Form2.TextBox3.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        Form2.Visible = True
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        Else
            PW_txt.PasswordChar = "?"
        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If ComboBox1.Text = "Select Account" Then
            MsgBox("Please Select An Account")
            Return
        End If
        Dim doc As XDocument = XDocument.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        doc****ot.Element(ComboBox1.Text).Remove()
        doc.Save(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        MsgBox("Account Successfully Removed!")
        ComboBox1.Items.Clear()
        ComboBox1.Text = "Select Account to Remove"
        ComboBox3.Items.Clear()
        ComboBox3.Text = "Select Account To Edit"
        ListBox2.Items.Clear()
        ListBox2.Items.Clear()
        FindAccounts()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        FolderBrowserDialog1.ShowDialog()
        FolderBrowserDialog1.ShowNewFolderButton = False
        If FolderBrowserDialog1.SelectedPath = "" Then
            Return
        End If
        My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
        My.Settings.Save()
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim resp As MsgBoxResult
        resp = MsgBox("Are you sure that you want to clear your steam file directory?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            My.Settings.SteamLocation = ""
            TextBox1.Text = ""
        Else
            Return
        End If
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        FolderBrowserDialog2.ShowDialog()
        FolderBrowserDialog2.ShowNewFolderButton = False
        If FolderBrowserDialog2.SelectedPath = "" Then
            Return
        End If
        My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
        My.Settings.Save()
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim resp As MsgBoxResult
        resp = MsgBox("Are you sure that you want to clear the account files directory?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            My.Settings.AccountFile = ""
            TextBox2.Text = ""
        Else
            Return
        End If
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        GroupBox1.Visible = False
        ListBox1.Visible = True
        ListBox2.Visible = False
        ListBox2.Visible = False
        Label9.Visible = True
        Label10.Visible = True
        Button11.Visible = False
        Button13.Visible = True
        Button14.Visible = True
        Button1.Visible = False
        Button5.Visible = False
        Label22.Visible = True
        PictureBox3.Visible = True
    End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs)
        System.Diagnostics.Process.Start("https://steamstat.us/")
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If ListBox1.Text = "Dota 2" Then
            Label10.Text = "570"
            Label21.Text = "570"
        End If
        If ListBox1.Text = "Counter-Strike: Global Offensive" Then
            Label10.Text = "730"
            Label21.Text = "730"
        End If
        If ListBox1.Text = "Team Fortress 2" Then
            Label10.Text = "440"
            Label21.Text = "440"
        End If
        If ListBox1.Text = "ARK: Survival Evolved" Then
            Label10.Text = "346110"
            Label21.Text = "346110"
        End If
        If ListBox1.Text = "Garry's Mod" Then
            Label10.Text = "4000"
            Label21.Text = "4000"
        End If
        If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
            Label10.Text = "72850"
            Label21.Text = "72850"
        End If
        If ListBox1.Text = "Grand Theft Auto V" Then
            Label10.Text = "271590"
            Label21.Text = "271590"
        End If
        If ListBox1.Text = "Warframe" Then
            Label10.Text = "230410"
            Label21.Text = "230410"
        End If
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        GroupBox1.Visible = True
        ListBox1.Visible = False
        ListBox2.Visible = True
        ListBox2.Visible = True
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Button11.Visible = True
        Label22.Visible = False
        Button1.Visible = True
        Button5.Visible = True
        PictureBox3.Visible = False
        Timer1.Start()
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        GroupBox1.Visible = True
        ListBox1.Visible = False
        ListBox2.Visible = True
        ListBox2.Visible = True
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Button11.Visible = True
        Label22.Visible = False
        Button1.Visible = True
        Button5.Visible = True
        PictureBox3.Visible = False
        ListBox1.Text = ""
        Label10.Text = "-"
        Label21.Text = "-"
        Timer1.Stop()
    End Sub


    Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
        User_label.Text = myXml.ReadString(ListBox2.Text, "UserID")
        PW_label.Text = myXml.ReadString(ListBox2.Text, "Password")
        If myXml.ReadString(ListBox2.Text, "AccountType") = "Main" Then
            PictureBox2.BackgroundImage = My.Resources.Resources.MainBig
        End If
        If myXml.ReadString(ListBox2.Text, "AccountType") = "Smurf" Then
            PictureBox2.BackgroundImage = My.Resources.Resources.SmurfBig
        End If
        If myXml.ReadString(ListBox2.Text, "AccountType") = "Other" Then
            PictureBox2.BackgroundImage = My.Resources.Resources.OtherBig
        End If
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "Main" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Main1
        End If
        If ComboBox2.Text = "Smurf" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Smurf1
        End If
        If ComboBox2.Text = "Other" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Other1
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.Text = "Dota 2" Then
            Label10.Text = "570"
            PictureBox3.BackgroundImage = My.Resources.Resources.Dota2
        End If
        If ListBox1.Text = "Counter-Strike: Global Offensive" Then
            Label10.Text = "730"
            PictureBox3.BackgroundImage = My.Resources.Resources.csog
        End If
        If ListBox1.Text = "Team Fortress 2" Then
            Label10.Text = "440"
            PictureBox3.BackgroundImage = My.Resources.Resources.TF2
        End If
        If ListBox1.Text = "ARK: Survival Evolved" Then
            Label10.Text = "346110"
            PictureBox3.BackgroundImage = My.Resources.Resources.Ark
        End If
        If ListBox1.Text = "Garry's Mod" Then
            Label10.Text = "4000"
            PictureBox3.BackgroundImage = My.Resources.Resources.Gmod
        End If
        If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
            Label10.Text = "72850"
            PictureBox3.BackgroundImage = My.Resources.Resources.skyrim
        End If
        If ListBox1.Text = "Grand Theft Auto V" Then
            Label10.Text = "271590"
            PictureBox3.BackgroundImage = My.Resources.Resources.GTAV
        End If
        If ListBox1.Text = "Warframe" Then
            Label10.Text = "230410"
            PictureBox3.BackgroundImage = My.Resources.Resources.warframe
        End If
    End Sub

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        If ComboBox3.Text = "Select Account" Then
            MsgBox("Please Select An Account")
            Return
        End If
        If Section_txt.Text.Contains(" ") Then
            MsgBox("Please remove all spaces!")
            Return
        End If
        If Section_txt.TextLength > 1 And UserID_txt.TextLength > 1 And PW_txt.TextLength > 1 Then
            Dim doc As XDocument = XDocument.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")
            doc****ot.Element(ComboBox3.Text).Remove()
            doc.Save(My.Settings.AccountFile + "\" + "SteamAccs.xml")
            myXml.WriteString(Section_txt.Text, "UserID", UserID_txt.Text)
            myXml.WriteString(Section_txt.Text, "Password", PW_txt.Text)
            myXml.WriteString(Section_txt.Text, "AccountType", ComboBox2.Text)
            FindAccounts()
            MsgBox("Account Successfully Saved!")
            Section_txt.Clear()
            UserID_txt.Clear()
            PW_txt.Clear()
            User_label.Text = "(Select Account)"
            PW_label.Text = "(Select Account)"
            PictureBox2.BackgroundImage = Steam_Accounts.My.Resources.Resources.SelectAccount
            ComboBox2.Text = "Select Account Type"
            PictureBox1.BackgroundImage = Nothing
            ComboBox1.Items.Clear()
            ComboBox1.Text = "Select Account"
            ComboBox3.Items.Clear()
            ComboBox3.Text = "Select Account"
            ListBox2.Items.Clear()
            FindAccounts()
            Add_btn.Enabled = True
        End If
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        If myXml.ReadString(ComboBox3.Text, "AccountType") = "Main" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Main1
        End If
        If myXml.ReadString(ComboBox3.Text, "AccountType") = "Smurf" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Smurf1
        End If
        If myXml.ReadString(ComboBox3.Text, "AccountType") = "Other" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Other1
        End If
        UserID_txt.Text = myXml.ReadString(ComboBox3.Text, "UserID")
        PW_txt.Text = myXml.ReadString(ComboBox3.Text, "Password")
        ComboBox2.Text = myXml.ReadString(ComboBox3.Text, "AccountType")
        Section_txt.Text = ComboBox3.Text
        Add_btn.Enabled = False
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        My.Settings.Save()

    End Sub

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Label26.Text = TrackBar1.Value
        Me.Opacity = TrackBar1.Value * 0.01
        Form2.Opacity = TrackBar1.Value * 0.01
        My.Settings.Transparency = TrackBar1.Value
    End Sub
    Private Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick
        If User_label.Text = "(Select Account)" Then
            MsgBox("Please Select An Account")
        Else
            Dim proc = Process.GetProcessesByName("Steam")
            For i As Integer = 0 To proc.Count - 1
                proc(i).Kill()
            Next i
            If Label10.Text = "-" Then
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
            Else
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
                System.Threading.Thread.Sleep(10000)
                MsgBox("Click 'Ok' When You Want To Launch Your Game!", vbSystemModal,)
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-applaunch " + Label21.Text)
            End If

        End If

    End Sub
End Class

v4.1

This release was only made to remove the external links, but while testing it, I also found bugs in the transparency, so i removed it. It might come back in a future release.

Code:

'Made By ImWhacky
'MPGH Exclusive
Imports System
Imports System.Security
Imports System.Security.Cryptography
Imports System.Runtime.InteropServices
Imports System.Security.AccessControl
Imports System.Xml
Imports System****
Imports System.Text


Public Class Form1
    Dim myXml As New XmlClass
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Label22.Visible = False
        PictureBox3.Visible = False
        If My.Settings.SteamLocation.Length < 1 Then
            MsgBox("Please Select Your Steam Directory.", vbSystemModal)
            FolderBrowserDialog1.ShowDialog()
            My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
            My.Settings.Save()

        Else
            TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        End If
        If My.Settings.AccountFile.Length < 1 Then
            MsgBox("Please select where you want your account file to be saved.", vbSystemModal)
            FolderBrowserDialog2.ShowDialog()
            My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
            My.Settings.Save()
        Else
            TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        End If
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        TextBox3.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
        User_label.Text = "(Select Account)"
        PW_label.Text = "(Select Account)"
        If My.Computer.FileSystem.FileExists(My.Settings.AccountFile + "\" + "SteamAccs.xml") Then
            myXml.Filename = (My.Settings.AccountFile + "\" + "SteamAccs.xml")
            myXml****ot = ("Main")
            FindAccounts()
        Else
            Dim path As String = My.Settings.AccountFile + "\" + "SteamAccs.xml"
            Dim fs As FileStream = File.Create(path)
            Dim info As Byte() = New UTF8Encoding(True).GetBytes("<?xml version='1.0' encoding='utf-8' standalone='yes'?>" & vbNewLine & "<Main>" & vbNewLine & "</Main>")
            fs.Write(info, 0, info.Length)
            fs.Close()
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")

        End If
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        End If
        If CheckBox1.Checked Then
            PW_label.Visible = True
            Label7.Text = ""
        Else
            PW_label.Visible = False
            Label7.Text = "(Password Not Visible)"
        End If
        TabPage1.BackColor = My.Settings.TabColor
        TabPage2.BackColor = My.Settings.TabColor
        TabPage3.BackColor = My.Settings.TabColor
        TabPage4.BackColor = My.Settings.TabColor
        Add_btn.BackColor = My.Settings.ButtonColor
        Button1.BackColor = My.Settings.ButtonColor
        Button2.BackColor = My.Settings.ButtonColor
        Button3.BackColor = My.Settings.ButtonColor
        Button4.BackColor = My.Settings.ButtonColor
        Button5.BackColor = My.Settings.ButtonColor
        Button6.BackColor = My.Settings.ButtonColor
        Button7.BackColor = My.Settings.ButtonColor
        Button8.BackColor = My.Settings.ButtonColor
        Button9.BackColor = My.Settings.ButtonColor
        Button10.BackColor = My.Settings.ButtonColor
        Button11.BackColor = My.Settings.ButtonColor
        Button12.BackColor = My.Settings.ButtonColor
        Button13.BackColor = My.Settings.ButtonColor
        Button14.BackColor = My.Settings.ButtonColor
        Button15.BackColor = My.Settings.ButtonColor
        Button16.BackColor = My.Settings.ButtonColor
        Button17.BackColor = My.Settings.ButtonColor
        ListBox1.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
    End Sub


    Private Function apppath() As String
        Throw New NotImplementedException()
    End Function
    Public Sub FindAccounts()
        Dim xml_doc As New XmlDocument
        Dim nodelist As XmlNodeList
        Dim node As XmlElement
        xml_doc.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")

        nodelist = xml_doc.SelectNodes("Main/*")
        For Each node In nodelist
            ComboBox3.Items.Add(node.LocalName.ToString)
            ComboBox1.Items.Add(node.LocalName.ToString)
            ListBox2.Items.Add(node.LocalName.ToString)
        Next
    End Sub
    Private Sub Add_btn_Click(sender As Object, e As EventArgs) Handles Add_btn.Click
        If Section_txt.Text.Contains(" ") Then
            MsgBox("Please remove all spaces!")
            Return
        End If
        If ComboBox2.Text = "Select Account Type" Then
            MsgBox("Please select account type")
            Return
        End If
        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)
            myXml.WriteString(Section_txt.Text, "AccountType", ComboBox2.Text)
            FindAccounts()
            MsgBox("Account Successfully Added!")
            Section_txt.Clear()
            UserID_txt.Clear()
            PW_txt.Clear()
            ComboBox1.Items.Clear()
            ComboBox1.Text = "Select Account"
            ComboBox2.Text = "Select Account Type"
            PictureBox1.BackgroundImage = Nothing
            ComboBox3.Items.Clear()
            ComboBox3.Text = "Select Account"
            ListBox2.Items.Clear()
            ListBox2.Items.Clear()
            FindAccounts()
        Else
            MsgBox("Please 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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pList() As System.Diagnostics.Process =
            System.Diagnostics.Process.GetProcessesByName("steam")
        For Each proc As System.Diagnostics.Process In pList
            proc.Kill()
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim TabColor As New ColorDialog
        TabColor.ShowDialog()
        If TabColor.Color = Nothing Then
            My.Settings.TabColor = Color.Silver
            TabPage1.BackColor = Color.Silver
            TabPage2.BackColor = Color.Silver
            TabPage3.BackColor = Color.Silver
            TabPage4.BackColor = Color.Silver

        Else
            TabPage1.BackColor = TabColor.Color
            TabPage2.BackColor = TabColor.Color
            TabPage3.BackColor = TabColor.Color
            TabPage4.BackColor = TabColor.Color
            Form2.TabPage1.BackColor = TabColor.Color
            Form2.TabPage2.BackColor = TabColor.Color
            Form2.TabPage3.BackColor = TabColor.Color
            My.Settings.TabColor = TabColor.Color
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ButtonColor As New ColorDialog
        ButtonColor.ShowDialog()
        Add_btn.BackColor = ButtonColor.Color
        Button1.BackColor = ButtonColor.Color
        Button2.BackColor = ButtonColor.Color
        Button3.BackColor = ButtonColor.Color
        Button4.BackColor = ButtonColor.Color
        Button5.BackColor = ButtonColor.Color
        Button6.BackColor = ButtonColor.Color
        Button7.BackColor = ButtonColor.Color
        Button8.BackColor = ButtonColor.Color
        Button9.BackColor = ButtonColor.Color
        Button10.BackColor = ButtonColor.Color
        Button11.BackColor = ButtonColor.Color
        Button12.BackColor = ButtonColor.Color
        Button13.BackColor = ButtonColor.Color
        Button14.BackColor = ButtonColor.Color
        Button15.BackColor = ButtonColor.Color
        Button16.BackColor = ButtonColor.Color
        Button17.BackColor = ButtonColor.Color
        My.Settings.ButtonColor = ButtonColor.Color
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        My.Settings.ButtonColor = Color.Gray
        My.Settings.TabColor = Color.Silver
        Dim resp As MsgBoxResult
        resp = MsgBox("Appearance settings have been set to default, for changes to take effect, you need to restart the program" & vbNewLine & " " & vbNewLine & "Restart Program Now?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            Me.Close()
            System.Diagnostics.Process.Start("Steam Account Switcher.exe")
        Else
            MsgBox("Changes will be applied on next launch")
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Form2.TabPage1.BackColor = My.Settings.TabColor
        Form2.TabPage2.BackColor = My.Settings.TabColor
        Form2.TabPage3.BackColor = My.Settings.TabColor
        Form2.Visible = True
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            PW_txt.PasswordChar = ""
        Else
            PW_txt.PasswordChar = "●"
        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If ComboBox1.Text = "Select Account" Then
            MsgBox("Please Select An Account")
            Return
        End If
        Dim doc As XDocument = XDocument.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        doc****ot.Element(ComboBox1.Text).Remove()
        doc.Save(My.Settings.AccountFile + "\" + "SteamAccs.xml")
        MsgBox("Account Successfully Removed!")
        ComboBox1.Items.Clear()
        ComboBox1.Text = "Select Account to Remove"
        ComboBox3.Items.Clear()
        ComboBox3.Text = "Select Account To Edit"
        ListBox2.Items.Clear()
        ListBox2.Items.Clear()
        FindAccounts()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        FolderBrowserDialog1.ShowDialog()
        FolderBrowserDialog1.ShowNewFolderButton = False
        If FolderBrowserDialog1.SelectedPath = "" Then
            Return
        End If
        My.Settings.SteamLocation = FolderBrowserDialog1.SelectedPath.ToString
        My.Settings.Save()
        TextBox1.Text = My.Settings.SteamLocation.ToString + "\Steam.exe"
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim resp As MsgBoxResult
        resp = MsgBox("Are you sure that you want to clear your steam file directory?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            My.Settings.SteamLocation = ""
            TextBox1.Text = ""
        Else
            Return
        End If
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        FolderBrowserDialog2.ShowDialog()
        FolderBrowserDialog2.ShowNewFolderButton = False
        If FolderBrowserDialog2.SelectedPath = "" Then
            Return
        End If
        My.Settings.AccountFile = FolderBrowserDialog2.SelectedPath.ToString
        My.Settings.Save()
        TextBox2.Text = My.Settings.AccountFile.ToString + "\SteamAccs.xml"
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim resp As MsgBoxResult
        resp = MsgBox("Are you sure that you want to clear the account files directory?",
        MsgBoxStyle.YesNo, "Steam Account Switcher")
        If resp = MsgBoxResult.Yes Then
            My.Settings.AccountFile = ""
            TextBox2.Text = ""
        Else
            Return
        End If
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        GroupBox1.Visible = False
        ListBox1.Visible = True
        ListBox2.Visible = False
        ListBox2.Visible = False
        Label9.Visible = True
        Label10.Visible = True
        Button11.Visible = False
        Button13.Visible = True
        Button14.Visible = True
        Button1.Visible = False
        Button5.Visible = False
        Label22.Visible = True
        PictureBox3.Visible = True
    End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs)
        System.Diagnostics.Process.Start("https://steamstat.us/")
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If ListBox1.Text = "Dota 2" Then
            Label10.Text = "570"
            Label21.Text = "570"
        End If
        If ListBox1.Text = "Counter-Strike: Global Offensive" Then
            Label10.Text = "730"
            Label21.Text = "730"
        End If
        If ListBox1.Text = "Team Fortress 2" Then
            Label10.Text = "440"
            Label21.Text = "440"
        End If
        If ListBox1.Text = "ARK: Survival Evolved" Then
            Label10.Text = "346110"
            Label21.Text = "346110"
        End If
        If ListBox1.Text = "Garry's Mod" Then
            Label10.Text = "4000"
            Label21.Text = "4000"
        End If
        If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
            Label10.Text = "72850"
            Label21.Text = "72850"
        End If
        If ListBox1.Text = "Grand Theft Auto V" Then
            Label10.Text = "271590"
            Label21.Text = "271590"
        End If
        If ListBox1.Text = "Warframe" Then
            Label10.Text = "230410"
            Label21.Text = "230410"
        End If
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        GroupBox1.Visible = True
        ListBox1.Visible = False
        ListBox2.Visible = True
        ListBox2.Visible = True
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Button11.Visible = True
        Label22.Visible = False
        Button1.Visible = True
        Button5.Visible = True
        PictureBox3.Visible = False
        Timer1.Start()
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        GroupBox1.Visible = True
        ListBox1.Visible = False
        ListBox2.Visible = True
        ListBox2.Visible = True
        Label9.Visible = False
        Label10.Visible = False
        Button13.Visible = False
        Button14.Visible = False
        Button11.Visible = True
        Label22.Visible = False
        Button1.Visible = True
        Button5.Visible = True
        PictureBox3.Visible = False
        ListBox1.Text = ""
        Label10.Text = "-"
        Label21.Text = "-"
        Timer1.Stop()
    End Sub


    Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
        User_label.Text = myXml.ReadString(ListBox2.Text, "UserID")
        PW_label.Text = myXml.ReadString(ListBox2.Text, "Password")
        If myXml.ReadString(ListBox2.Text, "AccountType") = "Main" Then
            PictureBox2.BackgroundImage = My.Resources.Resources.MainBig
        End If
        If myXml.ReadString(ListBox2.Text, "AccountType") = "Smurf" Then
            PictureBox2.BackgroundImage = My.Resources.Resources.SmurfBig
        End If
        If myXml.ReadString(ListBox2.Text, "AccountType") = "Other" Then
            PictureBox2.BackgroundImage = My.Resources.Resources.OtherBig
        End If
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "Main" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Main1
        End If
        If ComboBox2.Text = "Smurf" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Smurf1
        End If
        If ComboBox2.Text = "Other" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Other1
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.Text = "Dota 2" Then
            Label10.Text = "570"
            PictureBox3.BackgroundImage = My.Resources.Resources.Dota2
        End If
        If ListBox1.Text = "Counter-Strike: Global Offensive" Then
            Label10.Text = "730"
            PictureBox3.BackgroundImage = My.Resources.Resources.csog
        End If
        If ListBox1.Text = "Team Fortress 2" Then
            Label10.Text = "440"
            PictureBox3.BackgroundImage = My.Resources.Resources.TF2
        End If
        If ListBox1.Text = "ARK: Survival Evolved" Then
            Label10.Text = "346110"
            PictureBox3.BackgroundImage = My.Resources.Resources.Ark
        End If
        If ListBox1.Text = "Garry's Mod" Then
            Label10.Text = "4000"
            PictureBox3.BackgroundImage = My.Resources.Resources.Gmod
        End If
        If ListBox1.Text = "The Elder Scrolls V: Skyrim" Then
            Label10.Text = "72850"
            PictureBox3.BackgroundImage = My.Resources.Resources.skyrim
        End If
        If ListBox1.Text = "Grand Theft Auto V" Then
            Label10.Text = "271590"
            PictureBox3.BackgroundImage = My.Resources.Resources.GTAV
        End If
        If ListBox1.Text = "Warframe" Then
            Label10.Text = "230410"
            PictureBox3.BackgroundImage = My.Resources.Resources.warframe
        End If
    End Sub

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        If ComboBox3.Text = "Select Account" Then
            MsgBox("Please Select An Account")
            Return
        End If
        If Section_txt.Text.Contains(" ") Then
            MsgBox("Please remove all spaces!")
            Return
        End If
        If Section_txt.TextLength > 1 And UserID_txt.TextLength > 1 And PW_txt.TextLength > 1 Then
            Dim doc As XDocument = XDocument.Load(My.Settings.AccountFile + "\" + "SteamAccs.xml")
            doc****ot.Element(ComboBox3.Text).Remove()
            doc.Save(My.Settings.AccountFile + "\" + "SteamAccs.xml")
            myXml.WriteString(Section_txt.Text, "UserID", UserID_txt.Text)
            myXml.WriteString(Section_txt.Text, "Password", PW_txt.Text)
            myXml.WriteString(Section_txt.Text, "AccountType", ComboBox2.Text)
            FindAccounts()
            MsgBox("Account Successfully Saved!")
            Section_txt.Clear()
            UserID_txt.Clear()
            PW_txt.Clear()
            User_label.Text = "(Select Account)"
            PW_label.Text = "(Select Account)"
            PictureBox2.BackgroundImage = Steam_Accounts.My.Resources.Resources.SelectAccount
            ComboBox2.Text = "Select Account Type"
            PictureBox1.BackgroundImage = Nothing
            ComboBox1.Items.Clear()
            ComboBox1.Text = "Select Account"
            ComboBox3.Items.Clear()
            ComboBox3.Text = "Select Account"
            ListBox2.Items.Clear()
            FindAccounts()
            Add_btn.Enabled = True
        End If
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        If myXml.ReadString(ComboBox3.Text, "AccountType") = "Main" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Main1
        End If
        If myXml.ReadString(ComboBox3.Text, "AccountType") = "Smurf" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Smurf1
        End If
        If myXml.ReadString(ComboBox3.Text, "AccountType") = "Other" Then
            PictureBox1.BackgroundImage = My.Resources.Resources.Other1
        End If
        UserID_txt.Text = myXml.ReadString(ComboBox3.Text, "UserID")
        PW_txt.Text = myXml.ReadString(ComboBox3.Text, "Password")
        ComboBox2.Text = myXml.ReadString(ComboBox3.Text, "AccountType")
        Section_txt.Text = ComboBox3.Text
        Add_btn.Enabled = False
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        My.Settings.Save()

    End Sub
    Private Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick
        If User_label.Text = "(Select Account)" Then
            MsgBox("Please Select An Account")
        Else
            Dim proc = Process.GetProcessesByName("Steam")
            For i As Integer = 0 To proc.Count - 1
                proc(i).Kill()
            Next i
            If Label10.Text = "-" Then
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
            Else
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-login " + User_label.Text + " " + PW_label.Text)
                System.Threading.Thread.Sleep(10000)
                MsgBox("Click 'Ok' When You Want To Launch Your Game!", vbSystemModal,)
                Process.Start(My.Settings.SteamLocation + "\Steam.exe", "-applaunch " + Label21.Text)
            End If

        End If

    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        File.Encrypt(My.Settings.AccountFile + "\" + "SteamAccs.xml")
    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        File.Decrypt(My.Settings.AccountFile + "\" + "SteamAccs.xml")
    End Sub
End Class

IF YOU FIND ANY BUGS, PLEASE TELL ME IN THE REPLY SECTION AND I WILL FIX THEM IN THE NEXT RELEASE!!!