Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Using bm As New Bitmap(20, 20), g As Graphics = Graphics.FromImage(bm)
            g.Clear(Color.Blue)
            g.FillEllipse(Brushes.GreenYellow, 0, 0, 20, 20)
            Clipboard.SetImage(bm)
            RichTextBox1.Paste(DataFormats.GetFormat("Bitmap"))
        End Using
    End Sub