报什么错都不说?把错误描述贴出来~
我试了试,好像没错:Private Sub Command1_Click()Dim NameID As String NameID = "123" If Tx1.Text = "你好" Then Tx2.Text = "你也好" Clipboard.Clear Clipboard.SetText Tx2.Text + NameID Exit Sub End If
End Sub