如何用编程制作桌面时钟

利用窗体、时间控件、文本框和时间函数。文本框显示。具体代码就从略了。
在窗体上添加1个计时器和1个标签
Private Sub Form_Load()
Label1.Caption = ""
Label1.BorderStyle = 1
Label1.ForeColor = vbWhite
Label1.BackColor = vbRed
Label1.FontSize = 20
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub