Public Shared Function read_customini_query()
        Dim fileExists As Boolean
        fileExists = My.Computer.FileSystem.FileExists(RUNNING_PATH & _
          "\Baoms-Custom.ini")
        If fileExists = True Then
            Dim stream As New FileStream("Baoms-Custom.ini", _
              FileMode.OpenOrCreate, _
                                 Security.AccessControl.FileSystemRights.Read, _
                                 FileShare.Read, _
                                 1000, FileOptions.None)
            Dim reader As New StreamReader(stream)
            Dim file = reader.ReadToEnd()
            Dim strArr = file.Split("#")
            Dim i As Integer
            Dim read_str_query As String
            Dim SAVED_QUERY = strArr(1).Split(":")
            For i = 1 To 500 Step +1
                read_str_query = SAVED_QUERY(i.ToString.Trim).Split(";")(0)
                If read_str_query = Nothing Then Exit For
            Next i
            dbg_sql_query.list_saved_query.Items.Add(read_str_query.ToString())
            read_str_query = SAVED_QUERY((i + 1).ToString.Trim).Split(";")(0)
        End If
    End Function