Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Run XML Parser for settings.

        If File.Exists("C:\Terrarc\Settings.xml") Then
            Dim XMLD As XmlDocument = New XmlDocument
            XMLD.Load("C:\Terrarc\Settings.xml")

            Dim nodelist As XmlNodeList = XMLD.GetElementsByTagName("Connection")
            LoopXML(nodelist)

            Dim nodelist2 As XmlNodeList = XMLD.GetElementsByTagName("Info")
            LoopXML2(nodelist2)

            Dim nodelist3 As XmlNodeList = XMLD.GetElementsByTagName("Options")
            LoopXML3(nodelist3)
        End If
    End Sub

    Private Sub LoopXML(ByVal nodelist As XmlNodeList)
        For Each elem As XmlElement In nodelist
            If elem.HasChildNodes Then
                LoopXML(elem.ChildNodes)
            Else
                'Get the info
                If elem.HasAttribute("Server") Then
                    frmSettings.txtServer.Text = elem.Attributes("Server").Value.ToString()
                    frmSettings.txtPortNum.Text = elem.Attributes("Port").Value.ToString()
                End If
            End If
        Next
    End Sub

    Private Sub LoopXML2(ByVal nodelist2 As XmlNodeList)
        For Each elem As XmlElement In nodelist2
            If elem.HasChildNodes Then
                LoopXML(elem.ChildNodes)
            Else
                'Get the info
                If elem.HasAttribute("NickMain") Then
                    frmSettings.txtNickMain.Text = elem.Attributes("NickMain").Value.ToString()
                    frmSettings.txtNickAlt.Text = elem.Attributes("NickAlt").Value.ToString()
                    frmSettings.txtInfoline.Text = elem.Attributes("InfoLine").Value.ToString()
                    frmSettings.txtIdentName.Text = elem.Attributes("IdentName").Value.ToString()
                End If
            End If
        Next
    End Sub

    Private Sub LoopXML3(ByVal nodelist3 As XmlNodeList)
        For Each elem As XmlElement In nodelist3
            If elem.HasChildNodes Then
                LoopXML(elem.ChildNodes)
            Else
                'Get the info
                If elem.HasAttribute("UseIdent") Then
                    frmSettings.chkUseIdent.CheckState = elem.Attributes("UseIdent").Value
                    frmSettings.chkInvisible.CheckState = elem.Attributes("UseInvisible").Value
                End If
            End If
        Next
    End Sub