VB6 не работает с расширением jpeg

Формулировка задачи:

Здравствуйте, уважаемые программисты. Помогите, пожалуйста, с программой. Вот кусочек кода:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Load()
Image_skl.Picture = App.Path & "\1.jpg"
Image_sered.Picture = App.Path & "\2.jpg"
Image_bok.Picture = App.Path & "\3.jpg"
Image_skl.Picture = App.Path & "\1.bmp"
Image_sered.Picture = App.Path & "\2.bmp"
Image_bok.Picture = App.Path & "\3.bmp"
End Sub

VB6 отказывается адекватно воспринимать файлы с расширением ".jpeg" и ".bmp". Выдает сообщение об ошибке: "Type mismatch". Пробовал прописать полный путь, но все равно выдает ошибку. Подскажите, пожалуйста, что не так делаю. Спасибо.

Решение задачи: «VB6 не работает с расширением jpeg»

textual
                            Листинг программы 
                        
Set Image_skl.Picture = LoadPicture(App.Path & "\1.jpg")