ThreadInfo.dwSize = Len(ThreadInfo)
    Retval = Thread32First(hSnap, ThreadInfo)
 
   Do
      With ThreadInfo
         Label2.Caption = Label2.Caption + 1
      End With
   Loop Until Thread32Next(hSnap, ThreadInfo) = 0