Dim culture As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("tr-TR")
            Dim etkinliks As String = culture.DateTimeFormat.GetDayName(DateTimePicker1.Value.DayOfWeek)
şu yardımcı kodlar ile çözdüm