Private Sub Command1_Click()    Winsock1.SendData RichTextBox1.Text
    
    
     'Clipboard.SetText RichTextBox1.TextRTF, vbCFRTF
     
     ' RichTextBox2.TextRTF = RichTextBox1.TextRTF    
      RichTextBox2.Text = "我说的话: " + RichTextBox1.Text + vbCrLf + RichTextBox2.Text
     
      RichTextBox1.TextRTF = ""
End Sub点击发送 只有文字 没有图片 这个注释代码RichTextBox2.TextRTF = RichTextBox1.TextRTF 可以显示 但不是我想要的样子 求大神解决