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
 注意：文本框要设为能接受多行文本哦！

呵呵，光看明白要求就很困难了