关于一个循环分页。还有在线的么。

[XinJW]

For i = 0 To lstThumb_Kepian.ListCount - 1
    PICPath = lstThumb_Kepian.CellText(i, 1)
    
    If Right(PICPath, 1) = "\" Then lstThumb_Kepian.CellText(i, 1) = Left(PICPath, Len(PICPath) - 1)
    
    PhotoClip = Split(lstThumb_Kepian.CellText(i, 1), "\")
    pngName = CStr(PhotoClip(UBound(PhotoClip)))    '获取文件名
    
    lstThumb_Kepian.CellText(i, 2) = CStr(pngName) & ".PNG"
    
    
    pngThumb_Kepian(i).Clear
    pngThumb_Kepian(i).LoadPicture_File lstThumb_Kepian.CellText(i, 1) & "\" & lstThumb_Kepian.CellText(i, 2)
    pngFileName(i).Visible = True
    lblFileName(i).Visible = True
    lblFileName(i) = pngName
Next

有这样一段代码。如果lstThumb_Kepian.ListCount 小于等于8 的话没问题，我想分页，我点击下一页按钮的时怎么分页？比如lstThumb_Kepian.ListCount =14 或lstThumb_Kepian.ListCount =33

[Zondi]

用一个全局变量记录所在分页,从所在分页的值那开始循环