ComboBox1.Clear
ComboBox1.ColumnCount = 4
ComboBox1.ColumnWidths = "75 pt;75 pt;75 pt;75 pt"
Dim int1 As Integer
Dim int2 As Integer
For int1 = 0 To 10
ComboBox1.AddItem _
"Fila " & int1 + 1 & " , Col 1"
For int2 = 1 To 3
ComboBox1.List(int1, int2) = _
"Fila " & int1 + 1 & " , Col " & int2 + 1
Next int2
Next int1