[مصمم هاوي]

لا أدري ما هــو الخطأ في هذا الكود ؟!!!
عندما اختار التاريـخ من DateTimePicker1 المفروض يعرض من ComboBox1 اليوم الموافق للتاريخ (السبت - الأحد ..... )
ولكن اليوم يتم عرضه خطأ.
فأرجــو تعديـل الكود

كود :

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

    End Sub

    Public Sub Geet4(x As Integer)
        If x > ComboBox1.SelectedIndex + 1 Then ComboBox1.SelectedIndex = 0 Else ComboBox1.SelectedIndex = x

    End Sub