Добрый день! Не работает событие MouseDown  на динамическом контроле, возможно подскажите решение:
В обычном TextBox все ОК:
Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
DateForm.Show
TextBox2 = DateSerial(CInt(CurrentYear), Mon, CurrentDay)
End Sub

Динамический работать не хочет
Sub texx2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
DateForm.Show
texx2.MouseDown = DateSerial(CInt(CurrentYear), Mon, CurrentDay)
End Sub
__________
Set texx2 = Controls.Add("Forms.TextBox.1", "TextBox7")