怎样对滚动条进行设置，使其点击相应的地方就能前进或后退相应的记录数？我画的滚动条在仿真之后完全没有反应，不知道该怎么设置，请各位高手帮帮忙

我的代码，供参考：

Public Sub ReSize()
    HScroll1.Max = Image1.Width - Picture1.ScaleWidth
    If Image1.Width < Picture1.ScaleWidth Then
        HScroll1.Visible = False
        Image1.Left = (Picture1.ScaleWidth - Image1.Width) / 2
    Else
        HScroll1.Visible = True
        Image1.Left = Picture1.ScaleLeft
    End If
    VScroll1.Max = Image1.Height - Picture1.ScaleHeight
    If Image1.Height < Picture1.ScaleHeight Then
        VScroll1.Visible = False
        Image1.Top = (Picture1.ScaleHeight - Image1.Height) / 2
    Else
        VScroll1.Visible = True
        Image1.Top = Picture1.ScaleTop
    End If
End Sub

Private Sub Form_Load()
    Image1.Picture = LoadPicture(App.Path & "\地图.jpg")
    ReSize
End Sub

Private Sub HScroll1_Change()
    Image1.Left = -HScroll1.Value
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Static Cx As Long
    Static Cy As Long
    Cx = Image1.Width
    Cy = Image1.Height
    Select Case Button.Key
        Case "Open"
        Case "Save"
        Case "Delete"
        Case "Print"
        Case "Magnify"
            Image1.Width = Cx * 1.25
            Image1.Height = Cy * 1.25
            ReSize
            If Image1.Width > 32767 Or Image1.Height > 32767 Then Toolbar1.Buttons(7).Enabled = False
            If Image1.Width > 5000 And Image1.Height > 5000 Then Toolbar1.Buttons(8).Enabled = True
        Case "Reduce"
            Image1.Width = 0.8 * Cx
            Image1.Height = 0.8 * Cy
            ReSize
            If Image1.Width < 5000 Or Image1.Height < 5000 Then Toolbar1.Buttons(8).Enabled = False
            If Image1.Width < 32767 And Image1.Height < 32767 Then Toolbar1.Buttons(7).Enabled = True
    End Select
End Sub

Private Sub VScroll1_Change()
    Image1.Top = -VScroll1.Value
End Sub

PictureBox做容器，Image放在PictureBox里面

这是偶在奥运邮集软件上的滚动条详细代码,希望能对你有用:
《奥运邮集》软件的滚动条——“抛砖引玉篇”（之一）
将偶《奥运邮集》“滚动条”代码在此发帖，抛砖引玉,希望看到更好更简捷的方案!
条件:在窗体上放一个高32000,宽15200的Frame控件,再从工具箱拖放水平与垂直二个滚动条,各属性设置如图所示:(图内的红色所示数据是经过一番调试后得出的)；
垂直滚动条VScrollBar——（1）滚动条的高（2）鼠标点击空白区时滚动条移动快慢值（见滚动条示例图）（3）与窗体左边缘距离（4）移动最大值（5）鼠标点击两端黑三角箭头，滚动条移动快慢值（见滚动条示例图）（6）与窗体顶端距离（7）滚动条的宽
水平滚动条HScrollBar——（1）滚动条的垂直方向的高（即条宽）（2）鼠标点击空白区时滚动条移动快慢值（见滚动条示例图）（3）与窗体左边缘距离（4）移动最大值（5）鼠标点击两端黑三角箭头，滚动条移动快慢值（见滚动条示例图）（6）与窗体顶端距离（7）滚动条的总宽度（长度）
详见下面地址
https://bbs.bccn.net/viewthread.php?tid=207347&extra=page%3D

谢谢你的回复,但是对我来说好象太难了因为是刚学,你可不可以把程序加点注释什么的