在网上下载了大神的代码，能否告诉我一下他的这个prjClassList.vbp是怎么加载到引用里面去的？



在网上下载了大神的代码，能否告诉我一下他的这个prjClassList.vbp是怎么加载到引用里面去的？
我想把他的这个类，用到我的代码里面去！
-->这是大神的代码

'Download by http://www.codefans.net
Private x As New clsList, Px As Single, Py As Single

Private Sub Form_Load()
    Set x.List = ListView1
    Set x.TextBox = txtQty
    
    x.addcolumn "编码", "code", 1200, False, True
    x.addcolumn "描述", "desc", 3000, True, False
    x.addcolumn "数量", "qty", 800, False, True, lvwColumnRight
    x.addcolumn "单价", "cost", 1200, False, True, lvwColumnRight
    x.addcolumn "合计金额", "sell", 1200, False, False, lvwColumnRight
    
    x.AddItem "AB1001", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1002", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1003", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1004", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1005", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1006", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1007", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1008", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1009", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1010", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1011", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1012", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1013", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1014", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1015", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1016", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1017", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1018", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1019", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1020", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1021", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1022", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1023", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1024", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1025", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1026", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1027", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1028", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.AddItem "AB1029", "16X DVD-ROM", "6", "160.00", "0"
    x.AddItem "AB1030", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
    
    x.Resize
    
    
    CalculateTotals
    
    AltLVBackground ListView1, pic, True

End Sub

Sub CalculateTotals()
    Dim Row As ListItem
    
    For Each Row In ListView1.ListItems
        Row.SubItems(4) = Format(Val(Row.SubItems(2)) * Val(Row.SubItems(3)), "#0.00")
    Next
End Sub

Private Sub ListView1_KeyUp(KeyCode As Integer, Shift As Integer) 
 
    CalculateTotals
End Sub


Private Sub AltLVBackground(lv As ListView, pic As PictureBox, _
    Optional ByVal StartAtOddRow As Boolean = False, _
        Optional ByVal AltBackColor As OLE_COLOR = -1)

    Dim h               As Single
    Dim sw              As Single
    Dim oAltBackColor   As OLE_COLOR
    
    If AltBackColor = -1 Then
        oAltBackColor = pic.BackColor
    Else
        oAltBackColor = AltBackColor
    End If
    
    With lv
        If .View = lvwReport Then
            If .ListItems.Count Then
                .PictureAlignment = lvwTile
                h = .ListItems(1).Height
                With pic
                    .Visible = False
                    .BackColor = lv.BackColor
                    .BorderStyle = 0
                    .Height = h * 2
                    .Width = 10 * Screen.TwipsPerPixelX
                    sw = .ScaleWidth
                    .AutoRedraw = True
                    If StartAtOddRow Then
                        pic.Line (0, 0)-Step(sw, h - Screen.TwipsPerPixelY), oAltBackColor, BF
                    Else
                        pic.Line (0, h)-Step(sw, h), oAltBackColor, BF
                    End If
                    Set lv.Picture = .Image
                    .AutoRedraw = False
                    .BackColor = oAltBackColor
                End With
                .Refresh
                Exit Sub
            End If
        End If
        Set .Picture = Nothing
    End With
    
End Sub

VB 控件
[解决办法]
他应该是一个工程组。
首先新建一个 标准EXE工程，再“添加工程……”创建一个 ActiveX DLL 工程。
　　然后在 标准EXE工程 中，就可以引用新建的 ActiveX DLL工程了。

或者先新建 ActiveX DLL 工程，再添加标准EXE工程，再在EXE工程中来引用。


要注意的是，第二个工程，要用“添加工程”来创建，而不要“新建工程”来创建。