Procedure.s MakeGUID() 
  Protected LBuffer.s = Space(76) 
  Protected GuidId.GUID 
  CoCreateGuid_(GuidId) 
  StringFromGUID2_(GuidId, LBuffer,76); 
  CompilerIf #PB_Compiler_Unicode 
    ProcedureReturn LBuffer 
  CompilerElse 
    Protected SBuffer.s = Space(38) 
    WideCharToMultiByte_(0, 0, LBuffer, 76, SBuffer, 38, 0, 0); 
    ProcedureReturn SBuffer 
  CompilerEndIf 
EndProcedure 
 
Debug MakeGUID()