Application.ScreenUpdating = FalseOn Error Resume Next
If Dir("W:\EMPLOYEE INFORMATIONS\STAFF PHOTOS\ALL TOGETHER\" & TextBox4.Value & ".jpg", vbHidden) = "" Then
Image1.Visible = False
Else
Image1.Picture = LoadPicture("W:\EMPLOYEE INFORMATIONS\STAFF PHOTOS\ALL TOGETHER\" & TextBox4.Value &...