Dim DT As DateTime = MonthCalendar1.SelectionStart
        Dim wt As String = _
          System.Threading.Thread.CurrentThread.CurrentCulture.DateTimeFormat.D_
          ayNames(DT.DayOfWeek)

________
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