Sub ShowErr(ByVal ErrNum as Long, 
            Optional ByVal ErrDescr as String,
            Optional ByVal Suggestions as String,
            Optional ModuleID as String , 
            Optional Where as String , 
            Optional Where2 as String)

显示系统错误信息，系统还会在信息显示界面上增加一个按钮，让用户可以方便的拷贝这条信息的所有内容，以方便用户反馈给开发人员。

ErrNum               错误号，Err.Number

ErrDescr             可选 ，错误的详细信息，Err.Description , 可选参数，但是我们还是建议你填入

Suggestions      可选 ，建议的解决方案，格式：

                             如果解决方案和ErrNum无关，请填入一个不包含VBTAB 的字符串。

                             如果和ErrNum相关，即不同的错误我们期望建议的解决方案不一样，可以以以下格式填入：

                                                    ErrNum1 + VBTAB + Suggest1 + ErrNum12+ VBTAB + Suggest2 + VBTAB +.......

                             如果 Suggest1 里面以"HELP:" 开头，则 系统会在帮助数据库里面查找相关的内容

                                        例如 HELP:HowToDo ，则系统会在帮助系统里面找HowToDo的内容，如果HELP:后面没有内容，则系统会找 ModuleID、Where、Where2的相关内容

ModuleID           4FNexus组件的sID，让用户知道是哪个模块出现问题了。（系统应该根据这个ID自动获得组件的版本号）

Where                在模块内的那一个子模块出问题？一般可以填入 Form 或者对象 的名字

Where2              在模块内的子模块那个子子模块？一般可以填入 Function 或者 Sub 的名字