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
注意:文本框要设为能接受多行文本哦!
我喜欢编程