MessageBox(GuidToIdx(NewGuid())

function NewGuid() as String  
    
   local cGuid as String  
   declare Integer CoCreateGuid in ole32.dll String @ 
    
   cGuid = Space( 16 ) 
   CoCreateGuid(@cGuid) 
   DO WHILE ASC(LEFT(cGuid, 1 ))= 0  
        CoCreateGuid(@cGuid) 
   ENDDO 
   return cGuid 
 endfunc 
  

 function GuidToIdx(cGuid as String) as String 
  
   local cGuidString as String  
  
   declare Integer StringFromGUID2 in ole32.dll String, String @, Integer     
  
   cGuidString = Space( 38 * 2 ) 
   StringFromGuid2(cGuid, @cGuidString, Len(cGuidString)) 
   return StrConv(cGuidString,  6 ) 
 endfunc