Mình đã làm thử vẫn không được
Bạn hãy thử cho đọan code như sau:
Private Sub Form_Load()
TenCalendar.Value = Now
End Sub
Hỏng biết có phải vậy hong, bạn thử xem sao nhé
bạn nhầm rồi sửa Now lại thành Date
Private Sub Form_Load()
TenCalendar.Value = Date
End Sub
thân chào