Думал простая задачка - всего лишь скрыть календарь на событие "потеря фокуса". Ан нет!! "Невозможно сделать невидимым ЭУ имеющий фокус!" И ч.д.?
Попробовал и на Выход - тоже самое.
Private Sub Calendar1_Exit(Cancel As Integer)
With Me.Calendar1
.OnLostFocus = True
.Visible = False
End With
End Sub |
|