Herkese Merhaba ;
Aşağıda ki kod benim programa resim çekmek için kullandığım Sn. okileturc sayesinde öğrendiğim bir koddur.Gayet güzel bir kod. Butona tıklayınca resim seç geliyor. Fakat sadece .bmp uzantılı resimleri çekiyor. Benim istediğim jpg yada bütün uzantıları çekmesi, Sorum şu ;
Aşağıda ki koda bir kaç satır ekleyerek bunu yapabilir miyim ? Teşekürler

Sub resimekle()

    Dim filename As String

    Dim result As Integer

    With Application.FileDialog(msoFileDialogFilePicker)

        .Title = " CV ye resim ekle"

        .Filters.Add "All Files", "*.*"

        .Filters.Add "JPEGs", "*.jpg"

        .Filters.Add "Bitmaps", "*.bmp"

        .FilterIndex = 3

        .AllowMultiSelect = False

        .InitialFileName = CurrentProject.path & "\resimler\"

        result = .Show

        If (result <> 0) Then

            filename = Trim(.SelectedItems.Item(1))

    

            Forms!cv_frm!foto! = filename

            Forms!cv_frm!Kimlik.SetFocus

            Forms!cv_frm!Resim86.Picture = filename

            

            

           End If

    End With

End Sub