VB 有什么方法可以判断操作系统是不是激活的？

怎样用VB来判断Win 7、Win 8是否是激活的？然后在Text Box上面显示出来

Windows XP: Windows Genuine Advantage API Functions
Windows Vista+:Software Licensing API