Как создать электронную книгу - VB

Формулировка задачи:

Привет народ!! Нужно создать электронный учебник по дисциплине Операционные системы и среды на Visual Basic V6.0!! Как это сделать я не знаю!! Нужно в кратчайшие сроки!! Заранее спасибо!!!

Решение задачи: «Как создать электронную книгу»

textual
                            Листинг программы 
                        

                            Dim FName As String  'переменная для имени файла
FN = FreeFile   ' свободный номер для открытия файла
FName = "c:\1.txt"   'имя файла
If FName = "" Then   'если имя файла пусто, то ничего
Else   'иначе (имя файла не пусто)
    Open FName For Input As #FN   'открваем файл
    Text1.Text = Input(LOF(FN), #FN)   'считываем весь его текст в Text1
    Close #FN  'закрываем файл
End If
                        