Private WithEvents _threadP As ThreadProvider = Nothing
 
    Private Sub buttonWalk_Click(sender As Object, e As EventArgs) Handles buttonWalk.Click
        Dim processEx As Process = System.Diagnostics.Process.GetProcessById(TextBox1.Text)
        listViewCallStack.Items.Clear()
 
        _threadP = New ThreadProvider(processEx.Id)
        _threadP.LoadKernelSymbols()
        _threadP.Run()
    End Sub
 
    Private Sub _threadP_BeforeUpdate() Handles _threadP.BeforeUpdate
        listViewCallStack.Items.Clear()
    End Sub
 
    Private Sub _threadP_ResolveSybol(sender As Object, e As ThreadProvider.ResolveSybolData) Handles _threadP.ResolveSybol
 
        Me.BeginInvoke(Sub()
                           Debug.WriteLine("TID: " & e.TID & "  StartAdress: " & e.ResolveInfo.Symbol)
                           Dim ItemN As New ListViewItem
                           ItemN.Text = e.TID
                           ItemN.SubItems.Add(e.ResolveInfo.Symbol)
                           listViewCallStack.Items.Add(ItemN)
                       End Sub)
 
    End Sub
 
    Private Sub _threadP_Error(ex As Exception) Handles _threadP.[Error]
        MsgBox(ex.Message)
    End Sub

   public static String GetThreadStartAddress(IntPtr hProc, uint threadId)
        {
            IntPtr hThread = IntPtr.Zero;
            GCHandle handle = default(GCHandle);
 
            try
            {
                hThread = DbgHelpNative.OpenThread(DbgHelpNative.ThreadAccess.QUERY_INFORMATION, false, threadId);
 
                if (hThread == IntPtr.Zero)
                {
                    throw new Win32Exception("OpenThread failed");
                }
 
                var threadAddress = new IntPtr[1];
 
                handle = GCHandle.Alloc(threadAddress, GCHandleType.Pinned);
                var result = NtQueryInformationThread(hThread, ThreadInfomationClass.threadquerysetwin32startaddress, handle.AddrOfPinnedObject(), IntPtr.Size, IntPtr.Zero);
 
                if (result != 0)
                {
                    throw new Win32Exception(string.Format("NtQueryInformationThread failed; NTSTATUS = {0:X8}", result));
                }
 
                DbgHelpNative.SymSetOptions(DbgHelpNative.Options.SYMOPT_UNDNAME | DbgHelpNative.Options.SYMOPT_DEFERRED_LOADS);
 
                if (!DbgHelpNative.SymInitialize(hProc, null, true))
                {
                    throw new Win32Exception("SymInitialize failed");
                }
 
                DbgHelpNative.SYMBOL_INFO symbolInfo = new DbgHelpNative.SYMBOL_INFO();
 
                symbolInfo.SizeOfStruct = (uint)Marshal.SizeOf(typeof(DbgHelpNative.SYMBOL_INFO)) - 1024;
 
                symbolInfo.MaxNameLen = 1024;
 
                ulong displacement;
 
                if (!DbgHelpNative.SymFromAddr(hProc, (ulong)threadAddress[0], out displacement, ref symbolInfo))
                {
                    throw new Win32Exception("SymFromAddr failed");
                }
                return symbolInfo.Name;
                //return threadAddress[0];
            }
            finally
            {
                if (hThread != IntPtr.Zero)
                {
                    DbgHelpNative.CloseHandle(hThread);
                }
 
                if (handle.IsAllocated)
                {
                    handle.Free();
                }
            }
        }

  if (!DbgHelpNative.SymFromAddr(hProc, (ulong)threadAddress[0], out displacement, ref symbolInfo))
                {
                    throw new Win32Exception("SymFromAddr failed");
                }

 <DllImport("ntdll.dll", CharSet:=CharSet.Unicode, SetLastError:=True)>
    Public Shared Function NtQueryInformationThread(ByVal ThreadHandle As IntPtr, ByVal ThreadInformationClass As ThreadInfoClass, ByRef ThreadInformation As IntPtr, ByVal ThreadInformationLength As IntPtr, ByVal ReturnLength As IntPtr) As IntPtr
    End Function
 
    Public Enum ThreadInfoClass
        ThreadBasicInformation
        ThreadTimes
        ThreadPriority
        ThreadBasePriority
        ThreadAffinityMask
        ThreadImpersonationToken
        ThreadDescriptorTableEntry
        ThreadEnableAlignmentFaultFixup
        ThreadEventPair_Reusable
        ThreadQuerySetWin32StartAddress
        ThreadZeroTlsCell
        ThreadPerformanceCount
        ThreadAmILastThread
        ThreadIdealProcessor
        ThreadPriorityBoost
        ThreadSetTlsArrayAddress
        ThreadIsIoPending
        ThreadHideFromDebugger
        MaxThreadInfoClass
    End Enum

  Dim processEx As Process = System.Diagnostics.Process.GetProcessById(4080)
 
        For Each pT As ProcessThread In processEx.Threads
 
            Dim TID As IntPtr = pT.Id
            Dim StarAdress As IntPtr = pT.StartAddress
 
            ' aqui , por lo que investigue , se tiene que buscar la informacion de los simbolos o algo asi
            ' Usando la API dbghelp.dll
            ' Pero no hacer como hacerlo , tambien lei sobre otras cosas. como por ejemplo NtQueryInformationThread o algo asi
 
 
        Next

<i class="img _1-yc profpic" aria-label="Salvador Osvaldo, profile picture" role="img" style="background:#d8dce6 url('https\3a //scontent.fccs3-1.fna.fbcdn.net/v/t1.18169-1/29595233_969571103219620_8305830866261244835_n.jpg?stp\3d cp0_dst-jpg_e15_p130x130_q65\26 _nc_cat\3d 104\26 ccb\3d 1-7\26 _nc_sid\3d dbb9e7\26 efg\3d eyJpIjoidCJ9\26 _nc_ohc\3d 1dIsFQh3mkQAX8oTG8h\26 _nc_ht\3d scontent.fccs3-1.fna\26 oh\3d 00_AT92esrjGvAgYGVFpvL_HJrY2PDttjbn1-LyuPAQ4M2YLA\26 oe\3d 62B3ED5D') no-repeat center;background-size:100% 100%;-webkit-background-size:100% 100%;width:126px;height:126px"></i>