Private Sub Calendar9_Exit(Cancel As Integer)

Me.Çerçeve10.SetFocus

Me.Calendar9.Visible = False



End Sub

Sadece bu fonksiyonda Takvimden çıkıldığında görünmez olabilmesi için denetimi Çerçeve10 a göndermiş siz başka bir yere de göndere bilirsiniz.

Aksi takdirde bu denetimi odak üzerinde iken gizleyemezsiniz diye uyarı alırsınız..