程序代码:

On Error Resume Next                 '出现错误时忽略错误继续执行
me.hide                              '隐藏本窗体
me.show                              '显示本窗体
End                                  '卸载本窗体
Unload Me                            '退出
Me.WindowState = 0                   '还原窗体
Me.WindowState = 1                   '最小化本窗体
Me.WindowState = 2                   '最大化本窗体
vbCrLf                               '回车键
Chr(34)                              '双引号
Text1.SelStart = Len(Text1.Text)     '让text1的滚动条自动向下
Text1.SelStart                       '当前光标位置