ListView... assunto muito interessante, ferramenta muito util, eu nunca deixo ela de lado nas minhas aplicações... quando eu tiver tempo eu escrevo um artigo sobre isso... mas por enquanto eu vou passar o que vc precisa.. É bem simples.. é o seguinte:

 

ADICIONA 2 TEXTBOX (TEXT1 E TEXT2)

ADICIONA O LISTVIEW(LISTVIEW1)

ADICIONA UM BOTÃO(COMMAND1)

 

Private Sub Command1_Click()

 
      Set lista = ListView1.ListItems.Add()
    
      lista.Text = Text1.Text
     
    lista.SubItems(1) = Text2.Text
      End Sub

 

Private Sub Form_Load()
Dim header As ColumnHeader
   Dim lista As ListItem
   Dim a As Integer

ListView1.View = lvwReport

   For a = 1 To 2
      Set header = ListView1.ColumnHeaders.Add()
      header.Text = "Nome da coluna" & a
   Next a
End Sub

Daí voces fazem o que quiseram.. alterem o código e divirtam-se!!!

Até mais!!

Amilton tem como fazer somente com um textbox:

Problema solucionado por GHOST

Agora ela autonumera.. creio q seja mais prático que colocar o nº no textbox..

valeu!!!

 

Private Sub Command1_Click()
  Dim c As Integer
 
  c = ListView1.ListItems.Count
      Set lista = ListView1.ListItems.Add()
    
      lista.Text = c
     
    lista.SubItems(1) = Text1.Text
      End Sub
 
Private Sub Form_Load()
Dim header As ColumnHeader
   Dim lista As ListItem
   Dim a As Integer
ListView1.View = lvwReport
   For a = 1 To 2
      Set header = ListView1.ColumnHeaders.Add()
      header.Text = "Nome da coluna" & a
   Next a
  
 
End Sub

super 10