Sub ParseDB(ByVal file As String)
 
        ' Open & Read lameDB '
        Dim reader As New StreamReader(file, System.Text.Encoding.UTF8)
 
        Do While reader.Peek <> -1
 
            ' Get Line '
            Dim Line As String = reader.ReadLine()
 
            ' Check if Servicesblock start '
            If Line.StartsWith("services") Then
                Add = True
            End If
 
            ' Add to tmpList '
            If Add = True Then
                If Not Line.StartsWith("p:") Then
                    If Not Line.StartsWith("services") Then
                        If Not Line.StartsWith("end") Then
                            tmpList.Add(Line)
                        End If
                    End If
                End If
 
                If Line = "end" Then
                    Add = False
                End If
            End If
        Loop
 
        For i As Integer = 0 To tmpList.Count - 1
            ListView1.Items.Add(tmpList(i), i)
        Next
 
    End Sub