Private Sub DTPicker2_LostFocus() If Format$(DTPicker2, "HH:mm") < MaskEdBox1 Or DTPicker2 > MaskEdBox2 Then HN.Visible = True Else HN.Visible = False End If End Sub