Private indd As Boolean = False
    Private oldDate As DateTime
 
    Private Sub dtpDate_ValueChanged(ByVal sender As Object, ByVal e As _
      EventArgs) Handles dtpBis.ValueChanged
        If indd Then Return
        If Weekday(Me.dtpBis.Value) <> vbFriday Then
            MessageBox.Show("Nicht Freitag!")
        End If
    End Sub
 
    Private Sub dtpDate_DropDown(ByVal sender As Object, ByVal e As EventArgs) _
      Handles dtpBis.DropDown
        oldDate = dtpBis.Value
        indd = True
    End Sub
 
    Private Sub dtpDate_CloseUp(ByVal sender As Object, ByVal e As EventArgs) _
      Handles dtpBis.CloseUp
        indd = False
        If oldDate <> dtpBis.Value Then
            dtpDate_ValueChanged(Me, Nothing)
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist