Hi,
 
ich habe einen, zugegeben etwas seltsamen, Lösungsvorschlag:
 
1. Entferne von jeder Bitmap-Datei das erste Byte (ist bei Bitmaps ein B). _
  Somit bekommt es der User nicht mehr geöffnet.
 
2. Benutze folgenden Programmcode. Dieser liest die BMP-Datei ein, fügt das B _
  am Anfang ein und  speichert das ganze Gebilde im Temp-Verzeichnis. Das ganze _
  wird dann in Dein Programm geladen und aus dem Temp-Ordner gelöscht.
 
Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal _
  nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Sub Insert_Picture()
 
Dim PRes As Long
Dim PBuffer As String
Dim Temp_Path As String
Dim File_Name As String
Dim DataString As String
 
File_Name = "C:TEST.BMP"
 
PBuffer = Space(128)
PRes = GetTempPath(Len(PBuffer), PBuffer)
Temp_Path = Left(PBuffer, PRes)
Temp_Path = Temp_Path & "TempFile.tmp"
 
Open File_Name For Binary Access Read As #1
Open Temp_Path For Binary Access Write As #2
 
DataString = Space(LOF(1) + 1)
Get #1, , DataString
DataString = "B" & DataString
Put #2, , DataString
 
Close #2
Close #1
 
Image1.Picture = LoadPicture(Temp_Path)
Kill Temp_Path
 
End Sub
 
Grüße
 
Necromancer