主题：获取日期

我测试可以。肯定是你测试不对。

1、你点击控件；

2、执行代码 msgbox(vars("currTDate"))

 无语，本来就是两个不同的事件。你点击了，只是给vars("currTDate")赋值而已，根本不会触发click事件。

 如果要写，单击事件，请自己写到全局代码去。

什么代码怎么写啊，你想点击的时候做什么？我已经帮你写好点击的时候获取值了啊，你需要用到的时候，就直接用啊。

 这段代码，自己按需要改一下

Private Sub My_日历标签_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        MyPoint = e.Location
        vars("currTDate") = tDate
    End Sub