我是刚开始学VB的，这段代码我不知道错在哪里了？
我编写的却没有反应，按哪一个键都没有反应！！！！

Private Sub Cmd1_Click()
Label1.BorderStyle = 1
'为Label1添加边框
End Sub
Private Sub Cmd2_Click()
Label1.Font = "隶书"
'设置标签中文字的字体为隶书
Label1.FontSize = 15
'设置标签中文字的字体为15号字
Label1.FontBold = True
'设置标签中文字的字体为粗体
EndSub
Private Sub Cmd3_Click()
Label1.Visible = False
'将标签设置为隐藏
End Sub
Private Sub Cmd4_Click()
Label1.Alignment = 2
'设置标签中文字的对齐方式为居中形式
End Sub
Private Sub Cmd5_Click()


Label1.BorderStyle = 0
'将Label1边框取消
Label1.Visible = True
'将标签恢复显示
Label1.Font = "宋体"
'设置标签中文字的字体大小为12号字
Label1.FontBold = True
'设置标签中文字的字体为常规
Label1.Alignment = 0
'设置标签中文字的对齐方式为左对齐形式
End Sub

可是还是不可以啊！！
我把EndSub有改成了End Sub 中间加了一个空格！
可是我翻译的怎么不就不行了那！