VERSION 5#
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frm分页测试
Caption = "UserForm2"
ClientHeight = 4725
ClientLeft = 105
ClientTop = 435
ClientWidth = 9450.001
OleObjectBlob   =   "frm分页测试.frx":0000
StartUpPosition = 1    '所有者中心
End
Attribute VB_Name = "frm分页测试"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim listbox分页对象 As clsListboxPage    '必须是全局对象才能绑定和触发事件

Private Sub UserForm_Initialize()
    源数据 = Sheet2.Range("A2:E" _
            & Sheet2.Cells(Rows.Count, "A").End(xlUp).Row)
    Set listbox分页对象 = New clsListboxPage
    listbox分页对象.init 源数据, 10, ListBox1, cmd上一页, _
            cmd下一页, tb页码跳转, lb页码显示, "数据1!A2:E2"
End Sub