Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
For i = 0 To RichTextBox1.TextLength - 1
RichTextBox1.Select(i, 1)
Clipboard.Clear()
If RichTextBox1.SelectionType = RichTextBoxSelectionTypes.Object Then
RichTextBox1.Copy()
Dim images As Bitmap = Clipboard.GetImage
Me.BackgroundImage = images
End If
Next
End Sub