以下有很多自己试一下吧：
创新互联公司是一家专注于做网站、成都网站设计与策划设计,金牛网站建设哪家好?创新互联公司做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:金牛等地区。金牛做网站价格咨询:18980820575
Office 2007 Suites
DBXYD-TF477-46YM4-W74MH-6YDQ8
Office 2007 Applications
W2JJW-4KYDP-2YMKW-FX36H-QYVD8
Office 2007 Pro不是（专业版本序列号，两个）
DBXYD-TF477-46YM4-W74MH-6YDQ8
KGFVY-7733B-8WCK9-KTG64-BC7D8
Office 2007 Enterprise（企业版本序列号，一个）
KGFJX-3FQ8M-3FW8V-TJ8JQ-CM938
INSTALL NOTES:
1. Unpack
2. Install with the following Keys:
Microsoft Office Professional Plus 2007
MTP6Q-D868F-448FG-B6MG7-3DBKT
Microsoft Office Visio Professional 2007
QB6MH-Q82HX-BFWPK-8TXTY-HHJT6
Microsoft Office Outlook 2007 with Business Contact Manager
None needed
Microsoft Office Project Server 2007
BWPMX-XY8XF-KGBQ6-XKT8R-GHXD3
Microsoft Office Project Professional 2007
GP24P-FC3DP-HXY7Q-YG3JR-J4G3G
Microsoft Office Groove 2007
R83W8-GJQ82-GJ378-XQW9W-JBYKT
Microsoft Office Groove Server 2007
PGT8R-VBMBC-6V7GY-TW3HT-8FP36
Microsoft Office Multi Language Pack 2007 German
DY7FP-TGTKC-2366R-8VJMB-DGYKT
Microsoft Office OneNote 2007
TFKGD-9VXBG-T22DK-FQB9P-MBPG6
Microsoft Office SharePoint Designer 2007
VQCR8-6KP8Q-Y2FTW-3YQD7-R22G6
Microsoft Office SharePoint Server 2007 - Enterprise
FDJDK-66WCT-2HD9C-4TY63-38C4G
Microsoft Office SharePoint Server 2007 - Enterprisex64
FDJDK-66WCT-2HD9C-4TY63-38C4G
Microsoft Office Forms Server 2007
FDJDK-66WCT-2HD9C-4TY63-38C4G
Microsoft Office Forms Server 2007 x64
FDJDK-66WCT-2HD9C-4TY63-38C4G
point.X是像素值，怎么可能会是小数，当然是整数，你可以这样：
dim x as single, poi as point
x = 3 * Math.Cos(2)
poi.X = x
想取精确值就取x的值
new 只是开辟内存吧。。。。。
point 通常给别的变量服务的。。作为属性用。。。
应该可以用new的把。。。