使用monthview怎么选择空日期并且鼠标离开的时候使monthview消失

使用monthview如何选择空日期并且鼠标离开的时候使monthview消失？
我是在日期的text的GotFocus事件中显示monthview的，如下：
Private   Sub   txtLcDate_GotFocus()
MonthView1.Visible   =   True
End   Sub

当选择完日期时，
Private   Sub   MonthView1_DateClick(ByVal   DateClicked   As   Date)
        txtLcDate.Text   =   MonthView1.Value
        MonthView1.Visible   =   False
End   Sub

可是这样做有两个问题：
1.   无法输入空的日期，比如：焦点进入的时候，日期弹出，我又不想输入日期了
2.   当monthview出现的时候，如果不选择一个日期而去做别的操作，monthview不会消失

各位都是如何出来这两个问题呢？


[解决办法]
用 DatePicker