Private Sub ins_ScadenzaPatente_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ins_ScadenzaPatente.ValueChanged
ins_ScadenzaPatente.Format = DateTimePickerFormat.Custom
        ins_ScadenzaPatente.CustomFormat = "dd/MM/yyyy"
        Dim d1, d2 As Date
        d1 = ins_ScadenzaPatente.Value 'IL VALORE DEL TUO DATETIMEPICKER
        d2 = Now ' SE VUOI CONTROLLARE SE LA DATA IMMESSA NEL d1 AD "OGGI" (now) NON SIA GIA' SCADUTA
        If DateDiff(DateInterval.Day, d1, d2) < 0 Then
            ins_ScadenzaPatente.ForeColor = Color.Red
        Else
            ins_ScadenzaPatente.ForeColor = Color.Black
        End If
    End Sub