[علي نوري]

عليكم السلام

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        On Error Resume Next
        '  تحديد الخلية من قبل المستخدم
        For i = 0 To ComboBox1.Items.Count - 1
            DataGridView1.CurrentCell.Value &= ComboBox1.Items.Item(i)
        Next i
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        On Error Resume Next
        ' الاضافة بالخلية 0
        For i = 0 To ComboBox1.Items.Count - 1
            DataGridView1.Rows(0).Cells(0).Value &= ComboBox1.Items.Item(i)
        Next i
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        On Error Resume Next
        ' الاضافة بالخلية 1
        For i = 0 To ComboBox1.Items.Count - 1
            DataGridView1.Rows(0).Cells(1).Value &= ComboBox1.Items.Item(i)
        Next i
    End Sub