请帮忙翻译一下下面的代码,谢谢!

maxtor2008

Private Sub Form_Open(Cancel As Integer)
    ctListBar1.AddList "业务查询"
    ctListBar1.AddList "采购部门"
    ctListBar1.AddList "资料管理"
    ctListBar1.AddList "系统管理"
    ctListBar1.AddList "用户管理"


    ctListBar1.AddListImage 1, "化肥出库单", 3
    ctListBar1.AddListImage 1, "化肥叫货单", 7
    ctListBar1.AddListImage 1, "化肥入库单", 7
    ctListBar1.AddListImage 1, "介绍信录入", 2
    ctListBar1.AddListImage 1, "化肥运输录入", 4
    ctListBar1.AddListImage 1, "农药入库登记", 5
    ctListBar1.AddListImage 1, "配送计划录入", 1
    ctListBar1.AddListImage 1, "车辆保养记录", 1
  Dim cn As ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim sql As String
    Set cn = CurrentProject.Connection
    sql = "select * from 1"
    Rs.Open sql, cn, 3, 3, 1

End Sub

ice_xin

参阅CtListBar 控件使用方法.一个类似qq窗口的优秀控件.