Calendar控件里，如何样实现单击每一天会跳出一个msgbox

Calendar控件里，怎么样实现单击每一天会跳出一个msgbox
VB里面的Calendar控件，单击其中一天跳出一个警告框

然后把那天对应的格子的颜色变成红色

请问有办法实现吗？

有实例代码吗？谢谢！~

[解决办法]

VB code

Private Sub Calendar1_AfterUpdate()  if Calendar1.value="某一天" then  msgbox "警告"  end if  end sub
[解决办法]
找个代码源码的自定义控件吧 系统的那个不是很给力
[解决办法]
探讨


那么让日历控件的那一格子变红是怎么写的呢？