ListView Generico

Continuamente eu tenho que trabalhar com ListView.Tenho um operacao que se divide am antes e depois.
Logo tenho um ListView para os dados de antes e outro para os dados do depois.

Os campos a serem inseridos em ambos sao sempre os mesmos.

Na hora de ler/gravar tenho que designar o Listiew desejado e efetuar uma das dua operacoes.

A todo momento que queroo ListView antes tenho que declara-lo e o mesmo para o Listview depois.

Eu gostaria de colocar uma variavel generica, onde eu passaria para essa variavel o nome do listView
sem ter que dizer que quero o antes/depois e dessa forma eu economizaria algumas linhas de programacao e
o programa ficaria um pouco mais limpo.

O que tenho que fazer hoje :

Para gravar

For i = 1 To LvwAntes.ListItems.Count

       Set itemx = LvwAntes.ListItems.Count
                       .
                       .
                       .
next

For i = 1 To LvwDepois.ListItems.Count

       Set itemx = LvwDepois.ListItems.Count
                       .
                       .
                       .
next

Para Ler a base de dados e exibir os dados no ListView

Set NewItem = LvwAntes.ListItems.Add(, , Format(rscmdRel!SHIPS_DATA, "MM/DD/YYYY"))


    With NewItem
         .SubItems(1) = "" & Trim(rscmdRel!SHIPS_VOYAGE)
         .SubItems(2) = "" & Trim(rscmdRel!SHIPS_CARGO)
     End With

Para Ler

Set NewItem = LvwDepois.ListItems.Add(, , Format(rscmdRel!SHIPS_DATA, "MM/DD/YYYY"))


    With NewItem
         .SubItems(1) = "" & Trim(rscmdRel!SHIPS_VOYAGE)
         .SubItems(2) = "" & Trim(rscmdRel!SHIPS_CARGO)
    End With

E ainda tenho a rotina onde incluo os dados no ListView, onde tambem tenho o LVWAntes e o LvwDepois.

Acredito que de para fazer isso.

Muito obrigado