calendar ของคุณคืออะไร ใช่คอนโทรล หรือเปล่า เอามาจากไหน ซื้อมาใส่เพิ่มเติม หรือเอา MonthViewControl ที่แถมมากับ ระบบ

control ของคุณเขียนคำสั่งฝังในเหตุการณ์ได้ไหม ในเหตุการณ์อะไรได้บ้าง

มี OnClick, หรือ OnGetDate หรือเปล่า หรือ OnCloseUp

เขียนใส่มันในเหตุการณ์นั้นแหละครับ

private sub ชื่อcalendar_.........................()
on error goto exx ' กันไว้ก่อนแก้
screen.previouscontrol = me.ชื่อcalendar

exit sub
exx:
    if err<>0 then msgbox err & vbcrlf & err.description
end sub