程序代码 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                       '当前光标位置