How to generate GUID?

How to generate GUID programmatically in VB?

check this link from www.vbaccelerator.com

http://www.vbaccelerator.com/codelib/tlb/Csguid.zip