# typedef for THREADENTRY32
typedef Win32::API::Struct AA => qw{
   DWORD dwSize;
  DWORD cntUsage;
  DWORD th32ThreadID;
  DWORD th32OwnerProcessID;
  LONG tpBasePri;
  LONG tpDeltaPri;
  DWORD dwFlags;  
  };
my $Point = Win32::API::Struct->new( AA );
$Point->{dwSize} = 24;
##$size=Win32::API::Struct->sizeof(AA);
##always returns 0. ??

Thread32First($hProcessSnap, LPAA);
$retcode = GetLastError();
print "threadfirst error was $retcode \n";