Option Explicit
Private Sub Form_Load()
HScroll1.Left = 0
HScroll1.Width = Picture1.Width - VScroll1.Width
HScroll1.Top = Picture1.Height - HScroll1.Height
VScroll1.Top = 0
VScroll1.Height = Picture1.Height - HScroll1.Height
VScroll1.Left = Picture1.Width - VScroll1.Width
VScroll1.Max = Picture2.Height
HScroll1.Max = Picture2.Width
VScroll1.LargeChange = Picture1.Height
HScroll1.LargeChange = Picture1.Width
Picture2.Left = 0
Picture2.Top = 0
End Sub
Private Sub HScroll1_Change()
Picture2.Left = 0 - HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Picture2.Top = 0 - VScroll1.Value
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 19