vb如何注释下面程序

Private Sub Form_Load()
Label1.BackColor = vbRed 'Label1的背景色为红色
Label2.BackColor = vbYellow 'Label2的背景色为黄色
Label3.BackColor = vbGreen 'Label3的背景色为绿色
End Sub

Private Sub Timer1_Timer()
Label4 = Label4 - 1 '使Label4显示的数字减1
If Label4 = -1 Then '如果Label4显示的数字为-1
If Label2.Visible Then '如果Label2可见
Label4 = 10 '使Label4显示的数字为10
Label1.Visible = Not Label1.Visible '使Label1的可见性与原来相反，即原来隐藏则现在显示，原来显示则现在隐藏
Label2.Visible = False '使Label2不可见
Label3.Visible = Not Label3.Visible '使Label3的可见性与原来相反
Else
Label2.Visible = True '使Label2可见
Label4 = 3 '使Label4显示的数字为3
End If
End If
End Sub

Private Sub Label1_Click()
Timer1.Interval = 1000 '使时间控件Timer1的时间间隔为1000毫秒即1秒
Label1.Visible = True '使Label1可见
Label2.Visible = False '使Label2不可见
Label3.Visible = False '使Label3不可见
Label4 = 10 '使Label4显示的数字为10
End Sub

Private Sub Label3_Click()
Timer1.Interval = 1000 '使时间控件Timer1的时间间隔为1000毫秒即1秒
Label3.Visible = True '使Label3可见
Label2.Visible = False '使Label2不可见
Label1.Visible = False '使Label1不可见
Label4 = 10 '使Label4显示的数字为10
End Sub

希望楼主能酌情加分，实在太辛苦了