Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Dim anyDate As DateTime = Me.DateTimePicker1.Value
MessageBox.Show(System.Globalization.DateTimeFormatInfo.CurrentInfo.GetDayName( _
  anyDate.DayOfWeek))
    End Sub

MessageBox.Show("Name: " + Me.DateTimePicker1.Value.Now.DayOfWeek.ToString())
        MessageBox.Show("Wert: " + CInt( _
          Me.DateTimePicker1.Value.Now.DayOfWeek).ToString())