vb中的滚动条,(多分)!

添加一picturebox做容器
picturebox里面再放一个picturebox滚动调控制里面那个picturebox即可
：初始化
Private Sub Form_Load()
VScroll1.Max = Image1.Height - Picture1.Height
HScroll1.Max = Image1.Width - Picture1.Width
End Sub
'横向滚动
Private Sub HScroll1_Change()
Image1.Left = -HScroll1.Value
End Sub
'纵向滚动
Private Sub VScroll1_Change()
Image1.Top = -VScroll1.Value
End Sub
两个滚动条的夹角地方（右下脚）再放一个picturebox控件，遮住滚动的时候不应该显示出来的画面。