VB获取指定进程的线程,该怎么解决

VB获取指定进程的线程
如题
在网上看到一个C版的，不知能不能翻译成VB的?，谢谢
The       following       example       obtains       a       list       of       running       threads       for       the       specified       process.       First,       the       RefreshThreadList       function       takes       a       snapshot       of       the       currently       executing       threads       in       the       system       using       the       CreateToolhelp32Snapshot       function,       then       it       walks       through       the       list       recorded       in       the       snapshot,       using       the       Thread32First       and       Thread32Next       functions.       The       parameter       for       RefreshThreadList       is       the       identifier       of       the       process       whose       threads       will       be       listed.          
       
    #include       <windows.h>      
    #include       <tlhelp32.h>      
    #include       <stdio.h>      
       
    BOOL       RefreshThreadList       (DWORD       dwOwnerPID)          
    {          
                    HANDLE                                   hThreadSnap       =       NULL;          
                    BOOL                                           bRet                                   =       FALSE;          
                    THREADENTRY32       te32                                   =       {0};          
           
                    //       Take       a       snapshot       of       all       threads       currently       in       the       system.