问题！！！！高手们的复习对象！

Private Sub mnuexit_Click(Index As Integer)
End

End Sub

Private Sub bld_Click()
bld.Checked = Not bld.Checked
Label1.FontBold = bld.Checked
End Sub

Private Sub Command1_Click()
If Command1.Caption = "暂停" Then
Command1.Caption = "继续"
Timer1.Enabled = False
Else
Commmand1.Caption = "暂停"
Timer1.Enabled = True
End If
End Sub

Private Sub hei_Click()
Label1.FontName = "黑体"
End Sub

Private Sub itl_Click()
itl.Checked = Not itl.Checked
Label1.FontItalic = itl.Checked
End Sub

Private Sub kai_Click()
Label1.FontName = "楷体_gb2312"
End Sub

Private Sub li_Click()
Label1.FontName = "隶书"
End Sub

Private Sub song_Click()
Label1.FontName = "宋体"
End Sub

Private Sub Timer1_Timer()
If Label1.Left + Label1.Width > 0 Then
Label1.Move Label1.Left - 100
Else
Label1.Left = Form1.ScaleWidth
End If
End Sub

Private Sub txt_Click()
temp = InputBox("请输入新内容", "输入", Label1.Caption)
If temp <> "" Then
Label1.Caption = temp
End If
End Sub

Private Sub undrln_Click()
undrln.Checked = Not undrln.Checked
Label1.FontUnderline = undrln.Checked
End Sub
为什么运行的时候Commmand1.Caption = "暂停"这个出错说要求对象。这错在哪了  ？