Private Function GenerateApplicationCode(ByVal str As String) '自動生成案件代碼
Dim i As Integer
Dim strAppCode As String
strAppCode = str + 1
While strAppCode.Length <> str.Length
strAppCode = "0" + strAppCode
End While
Return strAppCode
End Function