RichTextbox遍歷法提取圖片

    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