udskift listbox med listview

hejsa eksperter.

jeg har fundet ud af at jeg vil skifte 2 listboxe ud med 1 listview box men kan ikke lige se hvordan jeg skal gøre det. er der en der kan hjælpe mig?

her er koden:

Private Sub Command3_Click()
'Dimmer diverse variable
  Dim i As Integer
  Dim LinkArray() As String
  Dim AntalLinks As Integer
  Dim strHtml_Lcase As String
  Dim Start As Long
  Dim nystart As Long
 
  If Text1.Text = "" Then
  GoTo endsub
  End If

'Opretter streng med kun små bogstaver, og finder forekomster af "</a>"
'Hvis man ikke bruger Lcase, er der forskel på </A> og </a>!!!
  strHtml_Lcase = LCase(strHtml)
  LinkArray() = Split(strHtml_Lcase, "</a>")
  AntalLinks = UBound(LinkArray)
 
'Redimmer LinkArray
  ReDim LinkArray(1 To AntalLinks)
 
'Looper gennem tekststrengen, finder links og gemmer dem i LinkArray
  For i = 1 To AntalLinks
    Start = InStr(nystart + 1, strHtml_Lcase, "<a href=") + 8
    LinkArray(i) = Mid(strHtml, Start, InStr(Start, strHtml_Lcase, ">") - Start)
    LinkArray(i) = Replace(LinkArray(i), Chr(34), "")
    LinkArray(i) = Replace(LinkArray(i), "=", "")
    LinkArray(i) = Replace(LinkArray(i), "main", "")
    LinkArray(i) = Replace(LinkArray(i), "target", "")
    nystart = Start
   
  Next i
 
' Viser alle links
  List1.Clear
  For i = 1 To AntalLinks
    List1.AddItem LinkArray(i)
  Next i
 
    Dim htmlKode As String
    Dim n As Integer
    Dim alleLinks() As String  'inedholder til sidst alle dine links
   
    Dim splittetKode As Variant
    Dim temparray As Variant
    Dim listitm As String
   
    htmlKode = strHtml  'blot en tekstboks på formen
    'Et array der indeholder htmlkode intil </a>
    'dvs. antallet af poster i arrayet = antallet af links
    splittetKode = Split(htmlKode, "</a>")
   
    'Den sidste linie indeholder ikke links
    ReDim Preserve splittetKode(UBound(splittetKode) - 1)
   
    For n = 0 To UBound(splittetKode)  'For hvert link
        'split hvert link op med > som delimiter.
        'Den sidste post vil være selve linket
        temparray = Split(splittetKode(n), ">")
        List2.AddItem (temparray(UBound(temparray)))
    Next n
   
   
   
endsub:
 
End Sub