update...

Signed-off-by: 502647092 <jtb1@163.com>

Frm_Tools.bas

@@ -7,7 +7,7 @@ Attribute VB_Name = "Frm_Tools"
 
 '最后更新日期:2014年6月5日
 
-'创建人:蒋天蓓
+'创建人: 喵♂呜
 
 '单位:上海市定海水电工程安装有限公司
 
@@ -332,19 +332,19 @@ End Sub
 Public Sub Daily_Show(ByVal Frm As Form, ByVal Daily As Long)
     Dim h As Long
     Dim w As Long
-    Dim I As Long
+    Dim i As Long
     h = Frm.Height
     w = Frm.Width
     Frm.Height = 20
     Frm.Width = 20
-    For I = 20 To w Step Daily
+    For i = 20 To w Step Daily
         Sleep 10
-        Frm.Width = I
+        Frm.Width = i
         Frm.Refresh
     Next
-    For I = 20 To h Step Daily
+    For i = 20 To h Step Daily
         Sleep 10
-        Frm.Height = I
+        Frm.Height = i
         Frm.Refresh
     Next
 End Sub