'添加一个TextBox框 将其BorderStyle设置为0 将BackColor设置为 系统选项卡下的 按钮表面 将MultiLine设置为True Text属性中加入N行文本 注意不要让文本超过Text框 Visable设置为False 一个Timer框 Interval设置成50 示例代码如下：Private Sub Form_Click()Text1.Top = Form1.ScaleHeight Text1.Visibl...