VB2010 超初心者です。
よろしければ教えてください。

> http://hanatyan.sakura.ne.jp/dotnet/index.html
> クリップボード関係
> クリップボードへグラフィックをコピー及び取得・ファイルに保存 (3)
> １．PictureBox1の画像データをシステム クリップボードコピーする
上記サンプルを使わせて頂いたのですが、何故かクリップボードにコピーされなせん。
どうしてなのかが分かりません、教えてください。
よろしくお願いします。

    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click

        Dim objPen = New Pen(System.Drawing.Color.Blue, 2)
        Dim objFont = New Font("ＭＳ Ｐゴシック", 11)
        Dim objGrp As Graphics = PictureBox1.CreateGraphics
        '楕円を描画
        objGrp.DrawEllipse(objPen, 10, 5, 50, 20)
        '文字を描画
        objGrp.DrawString("ABCDEFG", objFont, Brushes.Red, 0, 0)
        'リソースを解放する
        objFont.Dispose()
        objGrp.Dispose()
　　　　'
        If Not PictureBox1.Image Is Nothing Then
            'データをシステム クリップボードに貼り付けます
            Clipboard.SetDataObject(PictureBox1.Image, True)
            'コピーできたので一旦PictureBox1の画像を消去
            'PictureBox1.Image = Nothing
        End If

    End Sub

PictureBoxに直接描画するのではなく、Bitmapオブジェクトに描画し、そのBitmapオブジェクトをPictureBox.Imageに設定するようにしてください。
このサイトでしたら、Tipsの [描画・画像] -> [PictureBox上で消える画像＆描画・消えない画像＆描画] などを参照に。

Hongliangさん
　ありがとうございます。

教えて頂いたお陰でコピーをすることが出来ました。


あと関連質問があるのですが改めて投稿をさせて頂きます。