Indsættelse af billede på form

Hejsa

Jeg vil gerne indsætte et billede på en form, men IKKE som attachment - eller ikon. Jeg vil gerne have at selve billedet bliver vist, når jeg åbner formen. Med nedenstående script for jeg desværre kun ikonen lagt ind! Hvordan får man billedet direkte lagt ind?

Sub Initialize
Dim Session As Notessession
Dim DocCol As NotesDocumentCollection
Dim Db As NotesDatabase
Dim Doc As NotesDocument
Dim a1 As Variant
Dim a2 As Variant
Dim a3 As Variant
Dim Var As String

Set session = New NotesSession
Set Db = Session.CurrentDatabase
Set DocCol = Db.UnprocessedDocuments ' Vælger alle doc's i basen!
   
Set Doc = DocCol.GetFirstDocument
While Not Doc Is Nothing
var = Cstr(doc.EmplNumb(0))
If var = "" Then
'ingenting           
Else
blalblabla
End If
FilePath = "C:\foto\
FileName = Dir$(FilePath + "*.*")
While FileName <> ""
Set RTItem = New NotesRichTextItem(Doc, "Photograph")
Call RTItem.Embedobject(EMBED_OBJECT, "", FilePath + FileName)
Call Doc.Save(True, False)
Set Doc = DocCol.GetNextDocument(Doc)
Wend
Wend
End Sub