[Hazem1]

(14-09-18, 12:53 AM)asemshahen5 كتب : تفضل جرب هذا الكود .

كود :

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
       Dim v As Integer = 0
       Dim k As Integer = 0
       v = DateTimePicker1.Value.Month
       k = DateTimePicker1.Value.Year
       ComboBox1.Items.Clear()
       For i As Integer = 0 To 2
           v += 1
           If v > 12 Then
               v = 1
               k = k + 1
           End If
           ComboBox1.Items.Add(v & "/" & k)
       Next
   End Sub

جزاك الله خيراً أخي الكريم   نجحت فكرتك والشكر لله ثُم لك ، لي استفسار يسير لأن هذا الأمر سيحل مشكلة كبيرة بالنسبة لي في هذه الجُزئية : هل يُمكن إضافة الصفر ( 0 ) بحيث يكون شكل الأشهر 01 - 02 إلى 09 ؟