Private Sub Form_Timer()
ClockNow = Time
If Format(Now(), "hh") <= 12 Then
txt_DayNight = "لاتنس أذكار الصباح"
Else
txt_DayNight = "لا تنسى أذكار المساء"
End If
txt_currentDate = Format(Date, "dddd") & ", " & Day(Date) & " " & Format(Date, "mmmm") & ", " & Year(Date)
End Sub