Buenas!
¿ Pero estáis hablando de un ColumnView o de un ListBox ?.
Es que si se dice que es un ColumnView y se le adjudica a este control un nombre como lstPosibles
da a entender que estamos hablando de un ListBox y no de un ColumView. 
Ah esto existe:
Código:
ColumnView1.Columns.Max
 
Ademas ColumnView trabaja con claves no con indices. 
 
Esto es un ejemplo de Julio (jsbsan) con ColumnView.
Código:
Public Sub Form_Open()
relleno()
End
Public Sub relleno()
  Dim regilla As GridView 'Esto parece que sobra
 
  ColumnView1.columns.count = 3
 
   ColumnView1.Columns[0].Text = "Barajas"
   ColumnView1.Columns[0].alignment = Align.Center
   ColumnView1.Columns[1].Text = "Palos"
   ColumnView1.Columns[1].alignment = Align.Right
   ColumnView1.Columns[2].Text = "Valor"
   ColumnView1.Columns[2].alignment = Align.left
   ColumnView1.mode = Select.Single
   ColumnView1.Header = 1
   
   
 ColumnView1.Add("BarES", "Baraja Española", Picture.Load("rb.png"))
   ColumnView1.Add("ReyesES", "Reyes", Picture.Load("rb.png"), "BarES")
   ColumnView1.Add("CaballosES", "Caballos", Picture.Load("cb.png"), "BarES")
   ColumnView1.Add("cb", "Bastos", Picture.Load("cb.png"), "CaballosES")
   ColumnView1.Add("cc", "Copas", Picture.Load("cc.png"), "CaballosES")
   ColumnView1.Add("co", "Oros", Picture.Load("co.png"), "CaballosES")
   ColumnView1.Add("ce", "Espadas", Picture.Load("ce.png"), "CaballosES")
   
   
   ColumnView1.Add("rb", "Bastos", Picture.Load("rb.png"), "ReyesES")
   ColumnView1.Add("rc", "Copas", Picture.Load("rc.png"), "ReyesES")
   ColumnView1.Add("ro", "Oros", Picture.Load("ro.png"), "ReyesES")
   ColumnView1.Add("re", "Espadas", Picture.Load("re.png"), "ReyesES")   
    
    
  'relleno datos
 
    ColumnView1["rb"][1] = "Basto"
    ColumnView1["rb"][2] = "12"
   
    ColumnView1["rc"][1] = "Copa"
    ColumnView1["rc"][2] = "12"
   
    ColumnView1["re"][1] = "Espada"
    ColumnView1["re"][2] = "12"
   
    ColumnView1["ro"][1] = "Oro"
    ColumnView1["ro"][2] = "12"
   
    ColumnView1["cb"][1] = "Basto"
    ColumnView1["cb"][2] = "11"
   
    ColumnView1["cc"][1] = "Copa"
    ColumnView1["cc"][2] = "11"
   
    ColumnView1["ce"][1] = "Espada"
    ColumnView1["ce"][2] = "11"
   
    ColumnView1["co"][1] = "Oro"
    ColumnView1["co"][2] = "11"
   
   
End
 
Public Sub ColumnView1_Click()
  LabelDatoElegido.text = "Key: " & ColumnView1.Current.key & " Palo: " & ColumnView1[ColumnView1.Current.key][1] & " Valor: " & ColumnView1[ColumnView1.Current.key][2]
End
Saludos