急急急！！请教各位大虾！帮我看看这段代码！！！（再现等待）！！！！！！！！！！！！！！

Question

Option Explicit
Dim cury As Single
Private Sub Form_Load()
   Dim s As String, nl As String * 2
   Picture1.BackColor = QBColor(0)
   Text1.BackColor = RGB(0, 0, 0)
   Text1.ForeColor = &HFF00FF
   nl = Chr$(13) + Chr$(10)
   Text1 = ""
   Open "e:\110.txt" For Input As #1  '编译的时候着行出错误
   While Not EOF(1)
      Line Input #1, s
      Text1 = Text1 + s + nl
      Wend
      Close #1
      Text1.Font.Size = 18
      Text1.Move 0, Picture1.Height
      Text1.Width = Picture1.Width
      Text1.Height = TextHeight(Text1.Text)
      cury = Picture1.Height
      End SubPrivate Sub Timer1_Timer()
Text1.Top = cury
cury = cury - 100
If cury + Text1.Height < 0 Then
   cury = Picture1.HeightEnd Sub
修改编译没有错误的时候，可是运行后却什么都没有！帮我看看这位老大！！！！！！先谢了