For starters you want the
Value
from the DateTimePicker then if you are only concerned with the date you can strip out the time by;
Dim date1 As Date
Dim date2 As Date
date1 = DateTime.Now.Date
date2 = DateTimePicker1.Value.Date
MsgBox("RightNow: " & date1)
MsgBox("Pickedate1: " & date2)
If date1 = date2 Then
MessageBox.Show("Match the date")
End If
If you want to convert the DateTime values to strings you can use;
Dim date1 As String
Dim date2 As String
date1 = DateTime.Now.ToString("dd MMM yyyy")
date2 = DateTimePicker1.Value.ToString("dd MMM yyyy")
MsgBox("RightNow: " & date1)
MsgBox("Pickedate1: " & date2)
If date1 = date2 Then
MessageBox.Show("Match the date")
End If