Module Module1
    Public 計算累加 As Integer
    Public Class MyModule1
        Friend Shared Sub 計算顯示0()
            計算累加 += 1
            Form1.Text = "FILE-RECORDER" & "  --  正在讀取資料夾數量 : 共 [" & Strings.Format((計算累加 + 1), "#,##0") & "] 筆資料!! -- "
        End Sub
        Friend Shared Sub 計算顯示1()
            計算累加 += 1
            Form1.Text = "FILE-RECORDER" & "  --  正在寫入檔案數量 : 共 [" & Strings.Format((計算累加 + 1), "#,##0") & "] 筆資料!! -- "
        End Sub
        Friend Shared Sub 計算結束()
            計算累加 = 0
            Form1.Text = "FILE-RECORDER"
        End Sub
    End Class
End Module