vb.net实现桌面图标3D翻滚

最近将网页上的3D标签云翻滚程序移植到桌面上来了（用vb.net实现的）
效果如下

按住ctrl键会停止翻转，鼠标指到图标时会显示图标软件信息

程序第一次运行时会自动将桌面所有图标加入到3D翻滚里面来，移动鼠标图标就翻滚起来了，双击图标可以运行程序，哈哈！桌面干净多了！  

还有一点bug，对部份64位程序的桌面快捷方式暂不能获取执行文件原始地址（只能保留原快捷方式文件来运行程序）。对32位程序的桌面图标，运行一次后都可将原图标删除不影响程序运行
还有在图标翻滚时CPU占用率较高(要对每个图标大小，位置，透明度，还有前后顺序进行排序）

对于不能自动获取程序路径的增加了手动修改功能
3D翻转 部份球面等分部份代码：
Public Sub positionall()
        Dim phi, theta, lx, ly, lz As Double
        DIm left1,top1 as integer     
               Dim  radius as integer&#