Harun Hocam denedim
Tarih alanının çift tıklandığında olay yordamına

Private Sub Tarihi_DblClick(Cancel As Integer)
Dim blRet As Boolean
Dim dtStart As Date, dtEnd As Date

dtStart = Nz(Me.Tarihi.Value, 0)
dtEnd = 0

blRet = ShowMonthCalendar(mc, dtStart, dtEnd)
If blRet = True Then
Me.Tarihi = dtStart
Else
MsgBox "Tarih seçmediniz!!! Lütfen kontrol edin...", vbOKOnly, "Tarih seçmediniz..."
End If

End Sub


blRet = ShowMonthCalendar(mc, dtStart, dtEnd) satırında mc yi hta olarak kabul etti.
Size zahmet olacak ama bu örneği bir sürekli forma uygulayarak tekrar gönderebilirmisiniz.
Veya seruz hocamın örneği sürekli formda uygulanmış olursa bende uygulayabilirim. Başka türlü uyarlayamıyorum.

---

Hocalarım ben hala , sürekli forma bu tarih örneklerini uygulayamadım.
Konu cevaplanmış konulara taşınmış.
Lütfen yardım edermisiniz...