是否可以在VB6中以编程方式检索调用堆栈？

Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function GetCurrentThreadStackLimits Lib "kernel32" (ByVal LowLimit As Long, ByVal HighLimit As Long) As Long

Sub PrintStackTrace()
    Dim lowLimit As Long
    Dim highLimit As Long
    Dim threadId As Long
    Dim stackTrace As String

    threadId = GetCurrentThreadId()
    If GetCurrentThreadStackLimits(lowLimit, highLimit) Then
        stackTrace = "Thread ID: " & threadId & vbNewLine
        stackTrace = stackTrace & "Stack Low Limit: " & lowLimit & vbNewLine
        stackTrace = stackTrace & "Stack High Limit: " & highLimit & vbNewLine
        Debug.Print stackTrace
    Else
        Debug.Print "Failed to get stack limits for thread " & threadId
    End If
End Sub