Private Sub Command1_Click()

Winsock1.SendData Text2.Text

Dim n

n = Time()

If Text1.Text <> "" Then

   Text1.Text = "n & Chr(13) & Chr(10) & "我说:" & Text2.Text"
   
   
Else

   Text1.Text = "Chr(13) & Chr(10) & n & Chr(13) & Chr(10) + Text2.Text"
   
End If

End Sub

Private Sub Command2_Click()

Tools1.ScreenShot_Save

End Sub

你这样Text1的输出就变成了n & Chr(13) & Chr(10) & "对方说:" & Text2.Text