VB中日期控件添加

Microsoft Calendar Control 8.0在Vb6不存在，不是特别安装是没有的，左边工具栏单击右键-部件-Microsoft Windows Common Controls-2 6.0 (SP6)有MonthView控件，那个就是日历了，注意看清名称啊。

漏了一句：Label1.Visible = True

应该是：

Private WithEvents Timer1 As Timer

Private WithEvents Label1 As Label

Private Sub Form_Load()

Set Timer1 = Controls.Add("vb.timer", "Timer1")

Set Label1 = Controls.Add("VB.Label", "Label1")

Timer1.Enabled = True

Timer1.Interval = 1000

Label1.Visible = True

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

End Sub

---