Public Function ShowPicture(oControl As Control, ByVal sFile As String) As _
  Boolean
  On Error Goto ErrHandler
  oControl.Picture = LoadPicture(sFile)
  On Error Goto 0
  ShowPicture = True
  Exit Function
 
ErrHandler:
  ShowPicture = False
End Function

ShowPicture Image1, App.Path & "\test.bmp"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de