Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'capture today's date
Dim ggDay As Date = Date.Now.Date
'I named the My.Settings variable "todayDate" but you can name it anything you wish.
If (ggDay > My.Settings.todayDate) Then
My.Settings.todayDate = Date.Now.Date
MsgBox("it's new day again good morning sir.!")
End If
End Sub