求助修改以下VB代码...........................................................

'问题是：把Lw1控件使用到Listview1代码里，就是替换意思。
'这个自定义控件的使用方法
Lw1.AddHeaderItem "列表头" & 0, 100, , Src1
Lw1.AddHeaderItem "列表头" & 1, 100, , Src2
Lw1.AddHeaderItem "列表头" & 2, 100, , Src3
 For i = 0 To 10
     Lw1.AddListItem "列表项" & i, Src1, Src2
     Lw1.AddListSubItem i, "列表项" & i & "子项目1", Src2
     Lw1.AddListSubItem i, "列表项" & i & "子项目2", Src3

'以下是系统Listview控件代码。
Public Sub ShowPagedDocs(ByVal intCurPage As Integer, ByVal intPageSize As Integer)
    Dim docs As New Collection
    Dim result As New PDMPageUtil
    Set result = bussiness.GetPagedDocument(intCurPage, intPageSize)
    Set docs = result.Data
    lvDocsList.ListItems.Clear
    Dim doc As Document
    Dim li As ListItem
    For Each doc In docs
        Set li = Listview1.ListItems.Add(, , CStr(doc.docId))
        li.ListSubItems.Add , , doc.DocNo
        li.ListSubItems.Add , , doc.DocName
        li.ListSubItems.Add , , doc.docFileName
        li.ListSubItems.Add , , doc.DocFileType
        li.ListSubItems.Add , , doc.DocFileVersion
        li.ListSubItems.Add , , CStr(doc.DocCreateDate)
        li.ListSubItems.Add , , doc.DocDesigner
        li.ListSubItems.Add , , doc.DocCorrecter
        li.ListSubItems.Add , , doc.DocAuditer
    Next
    Set doc = Nothing
    Set docs = Nothing
    SetPageInfo result
End Sub