Skrive på et bitmap

lytter med, lyder interessant :)

Private Sub Form_Activate()
  Picture1.Picture = LoadPicture(\"C:\\Test.bmp\") \'Load bilede
  Picture1.AutoRedraw = True
  Picture1.FontName = \"Comic Sans MS\" \'Font navn
  Picture1.FontSize = 20 \'Font size
  Picture1.ForeColor = &HFF8080 \'Font color
  Picture1.CurrentX = 15 * 15 \'Left *15
  Picture1.CurrentY = 30 * 15 \'Top  *15
  Picture1.Print \"www.Eksperten.dk\" \'Tekst
End Sub

tark tark :D

selv tak. :-)