［声明］
Declare Function GetThreadLocale Lib "KERNEL32" Alias "GetThreadLocale" () As Long
［说明］
取得当前线程的地方ID
［返回值］
Long，地方标识符
［其它］
在vb下，除非从一个多线程EXE服务器调用，否则当前线程就是当前应用程序