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)
        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
                    MessageBox.Show(elem.Attributes("Server").Value.ToString())
                End If
            End If

        Next
    End Sub