Программа предназначена для записи в подсознание различной информации.
Название 25 кадр чисто символическое ( по умолчанию стоит время 40 миллисекунд, что соответствует 25 кадрам в секунду ).
Можно установить любое время смены кадров, это полезно при изучении языков, когда сначала просматривают на большой скорости, а потом можно поставить допустим 500 или даже 1000
и уже на сознательном уровне просмотреть слова.  К тому же в программе есть полный листинг всех слов, который также можно использовать для обучения.
***
Работать с программой очень просто.
Сначала надо подготовить текстовый файл со словарём или любым текстом. Главное, чтобы строка текста была не более 3-4 слов.
Затем в программе нажимаем кнопку OPEN и выбираем нужный файл. ( по умолчанию корневая директория с:/ ).
Затем вводим в окошке нужное время ( по умолчанию 40 ) и нажимаем кнопку START .
Программа прокручивает весь текст построчно в бесконечном цикле, поэтому надо самостоятельно отключать нажав на кнопку STOP.
Программа довольно умная, она убирает с экрана всё лишнее, принцип Дзен! и показывает количество строчек в тексте.
****
Рекомендуется  работать в режиме просмотра не более 15 минут, затем надо потратить ещё 15-20 минут на просмотр текста уже
на скорости восприятия сознанием. Это нужно, чтобы возникла связь между подсознанием ( вернее с тем, что туда записалось) и
сознанием, в этом и есть секрет сверхзапоминания. Многие игнорируют этот процесс и в итоге у них нулевые результаты.
***
Кроме изучения слов, эту программу можно использовать для других целей, например закодироваться от курения, или на сброс
лишнего веса. Можно кодироваться на позитив, излечение от болезней и многое другое .Главнае грамотно составить текст.

 

Код:
Imports System.IO


Public Class Form1

    Dim i, ddd As Integer
    Dim r As IO.StreamReader

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 40
        i = 0
        TextBox1.Visible = False
        ListBox1.Items.Add(" ")
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

Button1.Click
        If TextBox2.Text = "" Or Not IsNumeric(TextBox2.Text) Then
            ddd = 40
        Else
            ddd = Val(TextBox2.Text)
        End If
        Timer1.Interval = ddd
        Label2.Text = CStr(ListBox1.Items.Count) & " words"



        If Button1.Text = "start" Then
            TextBox1.Visible = True
            ListBox1.Visible = False
            Button2.Visible = False
            Timer1.Start()
            Button1.Text = "stop"
        Else
            Timer1.Stop()
            Button1.Text = "start"
            TextBox1.Visible = False
            ListBox1.Visible = True
            Button2.Visible = True
        End If

    End Sub

    'загрузить список из файла
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 

Button2.Click
        ListBox1.Items.Clear()
        TextBox1.Visible = False
        ListBox1.Visible = True

        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.InitialDirectory = "c:\"
        openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                myStream = openFileDialog1.OpenFile()
                If (myStream IsNot Nothing) Then
                   
                    r = New IO.StreamReader(myStream)
                    While (r.Peek() > -1)
                        ListBox1.Items.Add(r.ReadLine)
                    End While
                    r.Close()

                End If
            Catch Ex As Exception
                MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
            Finally
                ' Check this again, since we need to make sure we didn't throw an exception on open.
                If (myStream IsNot Nothing) Then
                    myStream.Close()
                End If
            End Try
        End If

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        TextBox1.Text = ListBox1.Items.Item(i)
        i = i + 1
        If i > ListBox1.Items.Count - 1 Then
            i = 0
        End If

    End Sub
End Class