如果你发现你每次和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。

请重新给我代码