Resim Yükleme Kodunda Hata

[airborne]

s.a.

aşağıdaki kodlarla userform üzerinde image1 nesnesine buton ile resim eklemek istiyorum,

Private Sub CommandButton1_Click()
Dim File As FileDialog
Dim DosyaY As String
Set File = Application.FileDialog(msoFileDialogFolderPicker)
File.AllowMultiSelect = False
File.Filters.Clear
File.Filters.Add "Resim Dosyası", "*.jpg?", 1
File.Show
If File.SelectedItems.Count = 1 Then
    DosyaY = DialogBox.SelectedItems(1)
End If
Image1.Picture = LoadPicture(DosyaY)
End Sub

ama

File.Filters.Add "Resim Dosyası", "*.jpg?", 1

bu satırda hata veriyor.

Yardımlarınız için şimdiden teşekkür ederim.

Selametle.............................................

 

[uzmanamele]

Merhaba

Resim dosyası formatı farklı olabilir, bunları deneyiniz.

"*.jpeg" çoğunlukla .jpeg dosyasından kaynaklanır
"*.jpe"
"*.jfif"
"*.bmp"
"*.gif"
"*.png"

 

[airborne]

s.a.

Set File = Application.FileDialog(msoFileDialogFolderPicker)
yerine
Set File = Application.FileDialog(msoFileDialogFolderPicker)
yaptım düzeldi.

 

[uzmanamele]

s.a.

Set File = Application.FileDialog(msoFileDialogFolderPicker)
yerine
Set File = Application.FileDialog(msoFileDialogFolderPicker)
yaptım düzeldi.

Aynı şey değil mi? Neyi değiştirdiniz?