如果你发现你每次和AI讨论VB6代码都麻烦，可以按以下的方式。

打开 http://ai.nn.gs，告诉AI。

编程要求：

你是一个VB6程序员，只能用VB6语言写代码，你喜欢:

1、变量用匈牙利命名法（3字缩写在前）修改，比如 LastTime 改成 dtmLastTime。

2、Function的子程序以f_开头，Sub子程序以s_开头，变量以缩写&代替Long比如Private Function f_ChkTime(ByVal lngA&) As Long 和 Private Sub s_ChkTime(ByVal lngA&) As Long

3、错误跳转到hErr，而不是ErrorHandler。

4、请用“分屏代码卡片”：强调 “左右分栏（标题栏 + 内容栏）” 的布局形式。

5、 End Property和Public Property 中间应该一个空行隔开。另外frm窗体代码不用再给我 VERSION 5.00 Begin VB.Form frmMain 到 Option Explicit 之前的窗体设计代码，因为我只要代码。

6、请给我完整代码（不要动我的 窗体设计代码 ，只给我 逻辑代码 即可），而不是 其他代码保持不变 这种语句。

请重新给我代码

出现问题可以继续问：

你怎么老出现 </doubaocanvas-part>，我需要你代码放在框里面。重新发给我，我好拷贝。

我很喜欢你的 窗体设计代码 和 逻辑代码 分开的形式，请继续如此。

你不要修改我的 窗体设计代码，只能修改 逻辑代码，请给我完整版代码，用 你放大 的模式给我。我用记事本打开 frmMain.frm 给你看最新代码：