Tekst på image i imagebox+gem det i *.jpg

Jeg har lavet følgende funktion til en webcam app for noget tid siden. Håber du kan gennemskue koden. Til jpg konveteringen bruger jeg Intels JPG dll.
Eks pic, som den generere: http://www.cyborgsoftware.dk/exp/tmp_.jpg
Dll fil til jpg: http://www.cyborgsoftware.dk/exp/ijl11.dll

Me.Picture1.Picture = LoadPicture(filename)
Me.Picture1.AutoRedraw = True
Me.Picture1.Cls
Me.Picture1.ForeColor = &H8000000E
Me.Picture1.CurrentX = (Me.Picture1.Width / 2) - (Me.Picture1.TextWidth(Me.txttoprint) / 2)
Me.Picture1.CurrentY = (Me.Picture1.Height - 20) - (Me.Picture1.TextHeight(Me.txttoprint) / 2)
Me.Picture1.Height = Me.Picture1.Height + 16
Me.Picture1.Print TEXT VAR HER(den hvide tekst på mit testbillede)
Me.Picture1.Picture = Me.Picture1.Image
Me.Picture2.Width = Me.Picture1.Width
Me.Picture2.Height = 20
Me.Picture2.Picture = Me.Picture2.Image
Me.Picture1.PaintPicture Me.Picture2.Picture, 0, Me.Picture1.Height - 20
Me.Picture1.CurrentX = (Me.Picture1.Width / 2) - (Me.Picture1.TextWidth(EN TEKST VARIABEL HER) / 2)
Me.Picture1.CurrentY = (Me.Picture1.Height) - (20)
Me.Picture1.ForeColor = &HFF&

Me.Picture1.Print EN TEKST VARIABEL HER (Teksten i det storte felt)
Me.Picture1.Picture = Me.Picture1.Image
Dim sI As String
Dim c As New cDIBSection
Dim i As Long

  Set c = New cDIBSection
 
 
  c.CreateFromPicture Me.Picture1.Picture
      sI = OUTPUT_FILEPATH
  If Not SaveJPG(c, sI, 60) Then
      MsgBox "Failed to save the picture to the file: '" & sI & "'", vbExclamation
  End If

har vist sneget sig en lille taste fejl ind.... "...i det storte felt" = "i det sorte felt"

Ellers er der jo mange (endda gratis) programmer, der er skrevet netop til at løse sådanne problemer - men det kan du jo ikke bruge, hvis det SKAL gøres i VB :o(