VB编程中老是出现无效限定符号提示

Private Sub Form_Load()
  Label1.FontName = "宋体"
  Label1.Caption = "字体"
  Label1.Width = Width
  Label1.Height = Height
  Timer.Interval = 1000
End Sub

Private Sub Timer1_Timer()
 If Label1.FontSize < 100 Then
  Label1.FontSize = Label1.FontSize * 1.2
 Else
  Label1.FontSize = 10
 End If
End Sub

第6行， Timer  改为 Timer1