如何在vba中用GetCurrentThreadId获取当前线程的ID？

api函数GetCurrentThreadId可以获取当前的线程ID。

它的C++语法如下：

DWORD WINAPI GetCurrentThreadId(void);

它的VB语法如下：

Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long

这个函数没有参数，它的返回值就是当前调用的线程的ID。

以下是一个示例代码：

Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Sub QQ1722187970()
    lID = GetCurrentThreadId
    MsgBox "当前的线程ID为" & lID
End Sub