Resim yüklemede hata

[xxihsidxx]

herkese iyi günler
resim yükleme(loadpicture) penceresinde resim seçmeden iptal edince hata vermemesi için ne yapabilirim.aşağıdaki kodları kullanıyorum.
Private Sub CommandButton1_Click()
label1.caption=application.getopenfilename
folder=label1.caption
image1.picture=loadpicture(folder)
end sub

 

[amelie]

On Error GoTo hata
label1.Caption = Application.GetOpenFilename
folder = label1.Caption
image1.Picture = LoadPicture(folder)
hata: Cancel = True

bu biçimde denerseniz hata oldunda işlemi keser.

 

[xxihsidxx]

sayın amelie teşekkür ederim.