VB Code:
  1. Private Sub Command1_Click()
  2.  
  3.     Clipboard.Clear
  4.  
  5.     Clipboard.SetData Picture1.Picture
  6.  
  7. End Sub