Have you tried:
VB Code:
  1. Private Sub Picture1_Click()
  2.     Clipboard.Clear
  3.     Clipboard.SetText "seymore" & vbNewLine & "en" & vbNewLine & "loopy", vbCFText
  4. End Sub