画面を開いた時カレンダーの日付を今日にする

フォームのロード時にカレンダオブジェクトのValueにdateをセットする。
Private Sub Form_Load()
‘カレンダーを当日に
Me.カレンダ.Value = Date
End Sub
※Form_Openではなく、Form_Loadです。