For i As Integer = 1 To 10
If ComboBox1.FindString(i.ToString()) = -1 Then
ComboBox2.Items.Add(i)
End If
Next