[أبو خالد الشكري]

مرحبا ..

جرب التعديل التالي :

كود :

    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
        SetDayOfWeek(DateTimePicker1.Value.DayOfWeek)
        TextBox1.Text = ComboBox1.Text
    End Sub

    Public Sub SetDayOfWeek(day As DayOfWeek)
        Dim daysOfWeek As String() = {"الأحد", "الاثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السبت"}
        ComboBox1.Items.Clear()
        ComboBox1.Items.AddRange(daysOfWeek)
        ComboBox1.SelectedIndex = Array.IndexOf(daysOfWeek, daysOfWeek(day))
    End Sub