用VB编写一个钟表的代码是？

Private Sub Command1_Click()

End Sub

Private Sub Check1_Click()
If Check1.Value = 0 Then
Timer1.Enabled = False
Check1.Caption = "钟表已停"
Else
Timer1.Enabled = True
Check1.Caption = "钟表正在走动"
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 0 Then
Label1.Visible = False
Check2.Caption = "钟表已关闭"
Else
Label1.Visible = True
Check2.Caption = "钟表已打开"
End If

End Sub

Private Sub Form_Load()
Label1.Caption = Time
End Sub

Private Sub HScroll1_Change()
Label1.ForeColor = RGB(Int(HScroll3.Value), Int(HScroll2.Value), Int(HScroll1.Value))
End Sub

Private Sub HScroll2_Change()
Label1.ForeColor = RGB(Int(HScroll3.Value), Int(HScroll2.Value), Int(HScroll1.Value))

End Sub

Private Sub HScroll3_Change()
Label1.ForeColor = R