Public Sub ShowPicture(Picture As Control, _
  ByVal sInhalt As String)
 
  Dim F As Integer
 
  ' Bilddatei temporär erstellen
  F = FreeFile
  Open App.Path & "\Bild.tmp" For Output As #F
  Print #F, sInhalt;
  Close #F
 
 
  ' Bild anzeigen
  Picture.Picture = LoadPicture(App.Path & "\Bild.tmp")
 
  ' temporäre Datei löschen
  Kill App.Path & "\Bild.tmp"
End Sub