Фотоальбом

Private Sub Form_Load()
Dim f As Long
Dim MyText As String
List1.Clear
f = FreeFile
If Dir(App.Path & "\name_foto.txt") <> "" Then
Open App.Path & "\name_foto.txt" For Input As #f
Do Until EOF(f)
Line Input #f, MyText
List1.AddItem MyText
Loop
Close #f
End If
End Sub
 
Private Sub List1_Click()
Form11.Show
If Dir(App.Path & "\foto\" & List1.List(List1.ListIndex) & ".bmp") <> "" Then
Form11.Picture2.Picture = LoadPicture(App.Path & "\foto\" & List1.List(List1.ListIndex) & ".bmp")
Else
MsgBox "not"
End If
End Sub

Private Sub Form_Activate()
HScroll1.Min = Picture1.Width
HScroll1.Max = Picture2.Width - Picture1.Width
VScroll1.Min = Picture1.Height
VScroll1.Max = Picture2.Height - Picture1.Height
End Sub
 
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub
 
Private Sub HScroll1_Scroll()
Picture2.Left = -HScroll1.Value
End Sub
 
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
 
Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub

Private Sub Form_Load()
Image1(0).ZOrder
VScroll1.Min = 0
VScroll1.Max = 9
End Sub
 
Private Sub VScroll1_Change()
Image1(VScroll1.Value).ZOrder
End Sub

Private Sub Form_Load()
Me.Picture1.ScaleMode = 1
Me.Picture2.ScaleMode = 1
Me.Picture1.Visible = True
Me.Picture2.Enabled = False
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
 
      If x < Me.Picture1.Width And y < Me.Picture1.Height Then
          If x > 0 And y > 0 Then
          Me.Picture2.Move (x - Me.Picture2.Width \ 2), (y - Me.Picture2.Height \ 2)
          Me.Picture2.PaintPicture Me.Picture1, 0, 0, Me.Picture2.Width * 1.5, Me.Picture2.Height * 1.5, Me.Picture2.Left + 300, Me.Picture2.Top + 300, Me.Picture2.Width, Me.Picture2.Height
          End If
       End If
    End If
End Sub
End Sub