вставить картинку

[Iskin]

Здравствуйте. Мне надо чтобы в форме (во вложение) отображались рисунки, которые совпадают с переменной F1 из этой же формы.
Сами рисунки находятся в папке PIC. Сейчас при запуске формы отображается рисунок из первый строки (во вложение), копируясь на остальные строки. Помогите исправить ошибку.
программа которая запускается при загрузки формы.
Private Sub Рисунок25_Click()
Private Sub Form_Load()
DirPhoto = CurrentProject.Path & "\pic"
FileName = Dir(DirPhoto & "\" & [F1].Value & ".*")
If FileName <> "" Then
Рисунок25.Picture = DirPhoto & "\" & FileName
Else
Рисунок25.Picture = ""
End If
End Sub