Indsæt billede fra Clipboarden

imgMin er din picturebox

Option Explicit

Private Sub Form_Load()
  imgMin.Left = 0
  imgMin.Top = 0
End Sub

Private Sub Form_Resize()
  imgMin.Width = frmClip.ScaleWidth
  imgMin.Height = frmClip.ScaleHeight
End Sub

Private Sub Klip_Click()
  Clipboard.Clear
  Clipboard.SetData imgMin.Picture
  imgMin.Picture = LoadPicture()
End Sub

Private Sub Kopier_Click()
  Clipboard.SetData imgMin.Picture
End Sub

Private Sub Sætind_Click()
  imgMin.Picture = Clipboard.GetData
End Sub

sjh, jeg skal lige teste den ;)
men ellers tak ;)

Man skal undertiden være hurtig på aftrækkeren, jeg skulle lige til at svare, og mens jeg skrev...
M.v.h.  Jørn

thx

... jeg vidste også at det var GetData:
men jeg svarede
Image.picture=LoadPicture(Clipboard.GetData)???

svarede=skrev

jeg må nu også indrømme, at jeg lige vedste hvor jeg havde det script.

hehe