[ابراهيم ايبو]

السلام عليكم أخي العيدروس

تفضل هذا ماتريد ان شاء الله مثال فيه كومبو بوكس كلما تضيف 7 مرات يزداد الرقم بمقدار 1

وهذا هو الكود 

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim n As Integer = 1
       If ComboBox1.Items.Count < 7 Then
           ComboBox1.Items.Add(n)
       ElseIf ComboBox1.Items.Count >= 7 Then
           Dim r As Byte = ComboBox1.Items.Count \ 7
           ComboBox1.Items.Add(r + 1)
       End If

   End Sub