Private Sub Command1_Click()
Text1.Text = "鼠标移动" + Chr(13) + Chr(10)
Text1.Text = Text1.Text + "鼠标单击" + Chr(13) + Chr(10)
Text1.Text = Text1.Text + "显示结果" + Chr(13) + Chr(10)
End Sub
注意:文本框要设为能接受多行文本哦!
	
	
			Text1.Text = "鼠标移动" + Chr(13) + Chr(10)
Text1.Text = Text1.Text + "鼠标单击" + Chr(13) + Chr(10)
Text1.Text = Text1.Text + "显示结果" + Chr(13) + Chr(10)
End Sub
注意:文本框要设为能接受多行文本哦!

我喜欢编程



 
											





 
	    

 
	
