Private Sub readObjectList(ByVal filelocation As String)
        Dim list() As String = IO.File.ReadAllLines(filelocation)
        For Each line As String In list
            line.Trim()
            If line.Contains(".wdr") Then line.Replace(".wdr", "")
            PUObjectList.Add(line)
        Next


    End Sub