Public Function LoadPic(Optional ByVal FileName As String, _
  Optional ByVal Size As Variant, _
  Optional ByVal ColorDepth As Variant, _
  Optional ByVal X As Variant, _
  Optional ByVal Y As Variant, _
  Optional ByRef Meldung As String) As StdPicture
 ' , _
 ' Optional ByVal LoadPicture_Erlaubt As Boolean = False, _
 ' Optional ByVal BitmapPerGDIPLUS As Boolean = False) As StdPicture
 
  ' Ersatzfunktion für VB.Loadpicture

'Beispiel für den Aufruf:
 
Dim sMessage As String
 
Bild1.Picture = LoadPic("c3:\access\zeichnung\A01012_0.tif", , , , , sMessage)
If Len(sMessage) > 0 Then MsgBox sMessage