Как в PictureBox вывести все строчки из файла - VB

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

Здравствуйте пожалуйста подскажите как в пикчербокс вывести все строчки из файла (.тхт) VISUAL BASIC 6.0

Решение задачи: «Как в PictureBox вывести все строчки из файла»

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

                               Dim File As String, CF As String   'объявим пеpеменнyю для имени файла и его cодеpжимого
   File = "C:\1.txt"   'ycтановим имя файла и пyть
   Open File For Binary As #1   'откpоем файл для чтения
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1   'закpыть файл
   Рисунок1.Print CF ' печатать в пикчур
                        