Private Sub pic1_DoubleClick(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) _
      Handles pic1.DoubleClick, pic2.DoubleClick, pic3.DoubleClick
 
      Dim p As PictureBox = CType(sender, PictureBox)
 
      Clipboard.SetImage(p.Image)
      rtbSend.Paste()
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control