13518219792
一、分析：
创新新互联，凭借十年的网站设计、做网站经验，本着真心·诚心服务的企业理念服务于成都中小企业设计网站有1000多家案例。做网站建设，选成都创新互联。
1，这一类随时间而变化的曲线图，通常把横轴作为时间，把纵轴作为相应的值，在这里就是密度值。
2，点的集合就是线；一组时间、密度值，对应一个点，把点连接起来就构成了线。
二、在VB.NET中作图，需要知道并解决几个问题：
1，与VB6一样，VB.NET中默认的坐标系统，左上角为坐标原点，X轴的正向为从左向右，Y轴的正向是从上向下。
为了使得它与数学中的坐标系统相一致，可以使用VB.NET中Graphics类的两个方法；
1、TranslateTransform----平移变换
格式：Graphics.TranslateTransform(dx,dy)
其中：dx 和 dy分别是Single数据类型
2、ScaleTransform----缩放变换
格式：Graphics.ScaleTransform(sx,sy)
其中：sx 和 sy分别是Single数据类型；
例如：为了符合数学中的一般格式，可以使用下述代码：
Graphics.ScaleTransform(1, -1)
这样就把Y轴的正方向给翻过来了。
三、VB.NET中绘制图形
1，绘制圆或椭圆
'绘制图形的三步曲
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
'3，定义一个Brush对象，用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
'绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内
MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)
'绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内
MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)
注意：最后两个数值如果不等，就是绘制椭圆
当圆足够小，就是点了。
2，绘制直线
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)
'或者直接用
Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)
75490135 zxc123
沙僧
账号89947587
密码zxc123
悟空
89944656 密码123456
八戒
89949753 123456
唐僧
89950130
123456
89924795
90157821
账号woduomaini 密码900628microma``滚球
工具：IE浏览器
SOL文件修改器
：先叫厉害号（我给号源省略）
我沙僧号
返图找脱机工作点号打修改器找文件夹 #4399
面号帐号进发现SOL文件打所数据复制（Ctrl C）关闭即
接着打游戏脱机工作取消进入号
写入题
找要复制存档同脱机、保存返#4399文件夹找号文件夹（用修改器）同找文件值全部掉复制（Ctrl V）号确定刷新游戏等刷新万看看效吧跟号哈哈远起强吧 号源：
-
沙僧
eNrtWVuP00YUfusDf6EvUd4Bz/iSWFoiFbVISCuotPT2hJzYuXjtJGS8ZB0dEHRpuah0gaXlUgqt2kIphVWXFhZ2gT zjpM/UXXGuWCvnY0N2XYfmmid7OSb882Zc b45Ms7f787RZTj2qemkbLsurYvfTivawUrnSoppibwsrwvbTXmtHRuVyo1RTZhqhSzL12dMwzv85GIuqHYWgMfreX1PtAHnbEalWppCNWsGbqe9N4xuMJcg H6g PQeaWk6gnwbEveVyzqNuYQ3s2h3Vx2ai8Zz0JaW7IcmjPzWmOAN8ofKwbbWyxyUdaDaOrxtHZco1uNxoNNmxRqDWo60vB7jYZiD6AVQqw51SazlWEYtwilL9hbLmC aPQW61/AVjvO6A/Rt693jWL9U3fYgmIF7IP5ejonYm58FDy6vD2r2WPTplCrWo2a8aF3qGJlg2d8umJWLLqaGAlRVwipHNdGpkTQei8CXHSwdjx0/LFWCtYRhcyOjQuNiVZRRxy5TSd/rjCrKpZCj34MfsPw HOIA8RxwAGryFBUDKKdkL0h9ucNssuJLGARJMEPy9BZYmCiFBoRQyMCMxQY4UMjeNMcFPw/VtUM18zhtOGk/TW6vUp1MKuskJJG05kxhcHBEsFuZTO9cjjmnBjoKIoVQGLwR3FsJB8TKcRmF2MjUex1SrFtZhKwx/U9G9smjo2UE9jEsZF87LgH2MNZGrpd7K UZiylRPNUCKODp6asHqwWa8PjspXJUNcwAt3r0uhYJDaqo0NJOrqcWavS2xsPvJjpX7DMod6Fz4AkoowEQoZWNIRoReMFkCUesiL7lAeZjoEIAvD01SKmcdIs6oWTRVI1ThKzVaQXvTC 2gT7xpwA7cVLzs833RfXnEtX2ueugKUaLR1aeVIHcBZXUp3la8DNSxLHyTKIkgys2kqAWEXtPb06N/LKEAgoeg9i72lNdS4 dVavu2uvug vgm4YJmUr6tBeueEs3AtzCjgDAu ZwZ41TJ8xOfuM3aUnzvqz7tnLzvoS2KpeoozNYyMZvel0673pezhW8PlEjAjcPx9Quu7SQnfpO2jphsp8zEfsqCTRqAr0jiVJNCeGezq8mUVwsdvgngygATjWLSbQ/ucQOA/vOPe/7Fxcds5/DmbdZiFv0pC3bzxKdU/dpAs84D2GK4oXbeSlR2YIP4FYcrvP77lX7ziXX7h3HgMxCd8nc1depjrnlykZRx JyXiPjM GyGhitR9/w8jM4mTJRL9nXCCxnHNPNl7c2nh218uwVov0eSPTK mOYhx28vqK8/JH5mTRnrCTfIisfXXNObvGyEr6ZMmE1 ETwf36THfpNDTr89Yk81HCPo72b6fat36lHJY5SQ4s Dg2Vr9311YpBylMkAOLviwA59lq59Ul9/e7bLvs4iR98Wc5uL/cbp 3 PJqxPl4VEo0Zz1585X37JEa9aPlWmqeS TSmwxwCeE YQB31ueWpYMmENB/3CYDw/4Ntavp9x7pzz/DhzguIR8uJeD/rihMBsasE0mSxLcgf5lQUmUJSxmcBJRKSMmUJVkkRNoTf6vtSUxqZST09UWmCqBptpsQlAw2A6tKfkCrVkdTHP02uLLTok0p7dwPegKNUbSuc9G b1JjdE0dbpMu/DEmlyOBXCC8Yty4mAyJ/g3CvY2 zCdzAcpeSBosm6zDx8l80Hk3qQqbLMPh7c/Dip5i5oRlJS5nSEpi/EV3R0FnbykLCSRlOX/JeWApMy 7T/6qXPhj87lB50Ld2G XDb6ckSoq YxE3lEEGXAm7vBaE2C7SD4 lzWW9LW0r15pn3rnHv RndpBeqWatuFgOgS2YEiznug2I1oT3bxcd9edhafuKf/gll74GOos8aIOsfLQL95omyUj9GSS5Do6VPniwV38aK7 MPG m0o270v/JGbmkUCCAI1wbPNja/xiAHK2JKSnEWQZc7Jol9S8pvfTO3RZSMkpXGaae9nCFJrNOzXqungpVKq0m75k3LF0mj9K2j9HytCw7vohN5v8Ll/AK//pds=
悟空
eNrtmu1v00YYwL/tA39FlO8Qn99iaxBpaENCqmBS9/oJObHz4tpJiF1SR9eq5WUURGmh5aVdoWNsdIxBRdmg9AX mTpO/ovd2U7jxE5js0RD2hLJSa7P3e e55577rm7fjJz49PjmnBB k5VYrpRlk7Ez6ZlKaPHYzlBlWiK50/E9cq4FE8dicWOa10yRSRzIl4cVxT77z0lcFujmVJFcsU8gmfG1bRUaQlqCjgH4inieELrK8mGlgTnyJCSyQhtUiEludBtkqEl QhtkqElw2pEhaZToelUaDodms50Sra/tCqcLJUUSSi2auQFLSfp8RR2eL/wqF4pFHMHsuLpYrYUTxzq92VFMKQKOFdKy/08X8l/Iyh4nrEEy3IE2V8/1dCcKcWzgGGZwBqdfU4LOa02ima7W5zoQ8iMV76YKIcyNhIdkS5IKA4kmRBDM1ZQlJGCWkDGZvr3GweozwUdqUoSgDxKgKMEH1Trs0pFMFqVCpqmj4uGjTowfpgYdmjPJ7KKo6a324d1HePPoK/xlCzWoCpqsCpWq7CjduePf62D pgMVbV33/oPVFnSsXvFU2qpOCYZFKRYhnEeJJ/knAeFPhkSAEjzAAJAQ0BQNORZCnIMgFSSgrgcMpCGFPrUNVWZUrNyZiqrFZUpTa1l0UPO9HUAW7O0gfoxuOEvSpI4ko naCKydfGwh6uEeqzFU98PzUVaSlAf5CJRdDg9dB3Y6AOBXDyKDiND14EhPiSWRNHh649yHEQtig5no4SlrsWpVNQrJeVLezUOtZwp45kxUdAFtJyFWGjKgqYVLkg9l5ouk9mmZYJH4aMXDZVleHKMFA2bj/astVfNq7fM2RVY1eQcrKWzMjSvPKvP3obm/GassXEPEhMsSxA8DzmahiRaFjgOAgYS7jsrKJrU84klAExC4hjA3ydpaP35DBN3p82XL t312FNHtOyCFw93xOMG FJl0eFZ9pEAOvLL5rTK9bK5frqrHVtubm4Ccu6aBgZh1rfXDYvrWOpGBJD1FP2y2mGsF/gQNtwbFcWaWvOvTG37ls775vPl6CsKKpjYpfp05Qmk5Cm7EYcfUn0jqItsu/2z42bm/U7y9bKVZhX5Lw7qEsLgUSSJSEDWMijVsCBiaMhzXurSL36g7sQJQHuUPbAOUZt2zMqqrn42tx9azvQIjRE22XbYxiMYymn jGCiUwE0HzxuHH9ZePWs8b1J3Ain1ewPdMQWpvvYo1rG4iFPQT5C0XyEKX7kEFG7XYXvHFxHl4UwKS2tyBPfbhhzr 2Zv6CY0aLs797P2atT9ucU6cI5BIAASjkK2gackEcv05 0Js35pVL1vycNf/T/u5DmDdqNa2XYhya8zSNmqCwggfEYJ3awGNMB9KZ983FS83FH9GkV0QX5xszngMo1CDleJShBseZbrSN49q4/usIWnWkghhPgf5hU8joXwnaWMCmzBdeRdkbYFHw6JiN5uzr/b3V/bdP7GnpGLxahsFeS4QOOcCeUiTVtjXiekN7m4tj/KC5pGeMzedr5tMfGnMb5rWLUC0bsksKjK1RSUnCoyHaj1jb69bSmnkLK4oCj0a5MJ//RoNRNozifDAc4l7dwTA1O1gYQ3SOnSfGtccOB7shjl1Lyfub5rtHWMmsMWAlKR svrRjXt3BsJw84OE7MMgkA62bl5uLM7BantAH6Y8E6WHUf5 ur/6GGLo6SAYFPIz9rQfWzhZiaJlBMkjWO4PfbjXeL1h/PMHmMrKD5Hi9HFq/PqzPPHU4aTE7JJu1HM3c3TZv3MWOVi2fzyNXsz G49i0n0e3eP9w1tI4ISRBZxwk/TyyxfPlDtF4pJOseUIhBH4aGJB2rpfQhy3iXSuzotgrcwrY87GVk9jNTfJ2EUh6yzinjPAkL5NJ2FWR7S5gugvo7gKqu4Ds/IkSGs/P/oplxiudOzUneWrs7VhLmyh5Oi 724iLa9bTbb/hWZStkZy9f2CjbtQ6tmnNO0sodNYfzyFoWm8l2z2ouCrLeXPtqND6/IL5y4q1d89cuI13grqo1LCqWtCKx7C87TEsHuQP241GyEpZFkAGZaUky3qz0r5JcDIgK/VfYfjO7E8WcqO6kJPQ4IeTdg/5QT9p5 YDlYWQda5dtFKlYgRKB92pkJHuVEiGiHCfQgzvJoUhiUiXKeA/cZcS ewwMeS7kwF1KPyFSSL0VUYi2lkniHLWSQ/prJMIf9T4UYlGPetMhDwNIIZ3GpD4P5fxmMGt1voo5IoowH bL gS8uOM5F70 4qPoArO/8Sk/gYpPTvV
八戒
eNrtWltvE0cUfusDL/0Llt BndmLdyWwVNRGQoqgUnp9Qmt7fcv6Eu GxNaAEijlooYkJOGSAinQklIKEaGFkAv8mazX/hc9s vLrteOdxMH8dBYHseTM eb71zHnnw2Pf/5CU0 r/yQU0N6uaicDJ NZZW4Hg6l5JzCsZJ0MqyXxpVw9EgodELrkMmDzMlwflxVrb/3lCiqclkp4XOFWLYh6BAd0UuZfKolqugjsJ/wcY/cmfFcTCk15dTx GhC1uVwlD9xXOujlDL8UtaBBWYQPsqgo4jtvyomp hWGpP9NhQfLw0r5xWwBOqvGoT3VO3ZSCK7p/wXpZJcbopnNE0fT5S10UzLL3v4xuG9PflNJlWbHuOgt5fNKfwZ LW9XZB1Lv3ENuQrILSKfz9YgLHyqFLuHzyFvF4qqF9bedIjgjp8XJQ1LXNe6ellN4BtVKa7/T950W7mcK/JlbV4oaR0LOvuRllVv5G1UTAzQziGMIQWOJKUVU25IMFblnPOiAQJhMfOqQgIYdY5IxDMEyQ5p3g6hSPOKY50oLGdE9j9Frne9rcClJWvJotQEjHD9JeGgFMyiR4m66i26e9klXYBzPuQtmJyOJPL6L6qsxzXLX80kqS1oCV qgA7lfNN bSspRRQTS3jFXZvxZbVCqVS2ZlWve13KpPylPEehYp2yBE76vrYQ XOIV921lT2HOtbEvuURAHQ/UpKviVF35LYN/dIAJ1 rSQE0Il8W96/j/xy593o3ih1Z1c6cTqfLLSSq7tW 4AGc76TZESXUxD4XL8ksTWjIEe/aLpQ0hQW6jDbGDgB8fYQiRCOY0Qi8iIUV0x4ViARjOHJg6hIJIlgwsGTltYLuUIeui8oEXjeHrAUEe2BhVde4gTCSYggxBHEQOGXBBZ0I8JGWCIxBBHAtXTpWk69mEtm4xeTWl69qOUqSRiycR 1s3VSRcLHOapGETH/eV6/Ol9fuFxf JVUsmqCVGLJGCHG7HqotnaHMJOCwDBgLUlERATDIQksxFv9iD6shtMYrQ7UbkNgKIKOwYqmMLSp6tu3xpXL5uyMOfvb7vZDki5XKloD0lx/H6pdXwNIBn6GhogIxgYnEsRKhBdakJ0wztGC5F2QxssntRuvavPPazeeksl0Wu0Fx2IKwxMeQoPpINgdk6I5sFhSf3Brd3O nqp9niGjJWTRYqVJcbinHF51YtIieEINSbX1aDekUq0ATlSf7RjrrwGDxrXlsmElk01AK88r1675XWiKEDII0sJHxTxGNonJpxtkCQFx0QOTOPO/fqLxeqD2wQSCvAmxppG9eBZi5mWkSAp/YBFWia1M6K2s2UurkNGjGVtetVLK azTS cAAGKRboYC4HotRGNmbfGxl1z6wNQJFlVzTUQ1 91JciBQTnWUoItHRgeATluPq7dXK8u3TOXr5K0mk274tSDiAUooHC6pYUOHcis9aXF sJ09ckMWDamp2xP9jItXSqItoZjDL8Py9YX3hjb72iobi QciLbBOxhWWu5wDoRg9GEAvdwzZh9Y07/S0bLzUqzu303ZK5OWXk/NMSAw ATAIbcp VU7FZpuhe2dub7OuE3jqcRPujXDEHagiBA6wMeWBCcbaFvjY4cqIxxtIxxRBSD1pSIo6bYHI3tKePVq rtVaA5qiUbtaUHMFUi4VYGBA3H6uyc8fuyuXPHmLtF9esJtULLi1bsYllesGomIxAU2R9HX8cB1xdG8EmXcRUH49qb3Z37u eWlXC7tUT3XbLdDz23iiymGG23aYB1xkEbVwaDYPGZZzHgxcrxrOfazNrxvVLJFcsZxtI1XsvQ/WpZUAasn72hSTwDoZwWDQ3V83FFWOeEoVOprENMM/JIBgYa4GxogeM9szXSxQslxwsGM 4fecotG3f0Yo7aN9hL8m768b7R5RksjxgkqwHrLq4ZVzdomCp7IDd1zLIBZ6YN3 CPkkmipP64OJRdDiNJ9W/pqr3/wQIPTfIkG83AcDY3Xhgbm0AhhYfKIbrfP9uo/Zhzvz7KbVWOTlIHM6RUcT842F1 pmNE0sMFAdLnjgztjeNX27TOJsojqUh0qyXQcW1O4k4Lx7XxDtg0tLPNRgz7sqEvXi4iec5KwXDw/bhX3D4DXnR0IDYoY4q4ePb EO9ceGDXnBEtXJljFQq TRxf F GNcvwXen5 JkMjVGsnBA6rW/w7yNOYAN3FsAZVo4OrwfA/Ra03EVoiiJ4XQ4yjID9GM3DqcDcwAHBuPA8YfM4cfAHGiGBCOBD9sRZ/eV68FI8IdN4tvAJKAUBHQEH6Ry7HnbyhzSbSvv/7LzkxINcNsqCYIkIvH/O1dfdzfNC1c2wIWrgFBEEsSPdOnafMmk8uDf79MZXYHQjyuNu1bP9BFYYP/3UPQ/fDuyUA==
唐僧没说哈 - -我给发
eNrlWmtv01YY/rYP/Ioo32E x5fEGkQa2pCQKpjUXT8hJ3GudhJil9bRAbVcRkGUFlou7QodY6NjDCrKBqUX DN1nPyLneNLYsdOY7O0QiKRnOT09XnO816ec3xOP5u68cVRRTgn/ihLMVWricfip9MlMaPGY3lBFhma54/F1fqYGE8disWOKj02FWxzLF4ZkyTz730tapKgiXV4ppou2YYu01NjclqsO6b1qiQWs/EUdfRzxWc6qtaLlbxjKmTUbwWlHP98gF1ayGdLo5ik3RzCPoJ1Zqy p7WXnlT4XpCIOyEbyNBrLWtKploXQ3kDj1ppRBgJHvfXE7V4ioVUiJFg6xHxnIjjDAYbK WiJI0U5aKKux88cpJ/XwkqcQoF4GEKHKb4oLu rNcFzbmpqCjqWFYzoTo5FSZF9x4K6e4U/tp13x48J3KS5RO3A7G158fHNaDB0aiJKsmigPzx N8cWFori9rgTKtWVFzW35giECqBpLFMOSuoQjzFhEiEmqAoxXNi31Tw9m15ngoO0kdvGkIVJclUxRSgEKAoRCGi3ygnSIp4njebQMLdlrTaKNuQXM4nUM NXG8D29vA9DbQvQ3Q xOgpOtnh1j3S7BPrLkEt7kzqb9qHS/mR1UhL7pTaU9rn8z1qWAyP45a6jxADSX6DOgj4X5LGNqSDmnJhEZnQ1uC0JZchD7Dck9E6DOsl5Kh 4ShLfkIfcLQlh5G/iw9XsUrKKHi3FEQlLyI52FSaX5jr3QUsicruaqj532GYHWoVOt1LUSVWNUKoqz84P6t/FJE5YzN31o315t3Fo2lq/r0692d5d23T1BBKhUaDQU10uM1hPTZ9Vhr7R6iJjiOonjelDL329SsvleAiKBC2jE/T3Dbj3aMlVftq7f06aUu7rhSyg8bF3Zxkf58RX/6c2tmTb92Eck1rWQjNRdfxNqTSxjphPn6IKQE5WIIEG1srhoLK/otQhQpskLbYMb6u1jr2hoGo/ArMhhtgtFJH1j7 ULz1R0CJueGC8ZS3tjNv9a335LYbc93Y6dl9zV2Dsn76/q7R4RkThsySdoH1lzY0q9uEbB8acjh6zgErx2Mm5fb81NovDahDjMfKejCaP412Vz E2Oo8jAxaODC2N14YGxtYAwlM0wMyLkr O1G6/2c8fcT4i4tN0wcd5Yj44 HzamnFk46m9snnzmJpm9v6jfukkQbr50t4FQzP/YnsRk/HuPg/c qJateCIFXB6EfDzp4u9v3Y8bqpMnvxAmKiogHTX7AJYUI NHAkNjZWcI45qF2IdzzLYOMf55h2WztbBkL66hROkvmn1wJNS uGE83/ePjGOzPJAHr1sCAQRILgBK2PxzE9p0FrDDNxzMYNK3mSTaf7YtKbuVsnx6h2A8AdU/u5pxu0dSvPGtO3/YDJhkGQcCgJH74YqPyPAI8TPXtSf3ly bdVcy0rOQspv2ASSe8o5J0RJqAqAEWA2PpcnN52ri22J5fRzU1q2kZ27/ri/ql1WDNAJT5AqGTz8KmOi7WZ97oG/eNrfd41kclSZLtTLIwfUwZmEAMbXZi8YX4HTGorlnfnOw9LAN9CzjanUZ0RP/qLx63rr9s3XrWuv4ETRQKEuGYDlBFGvKI5VjE8gj2OrTzGO tZYLk0mHUfLimz742pv5FZc3B8akTBBgAT90MTtRkEE6AaPiA3rzRr1wyZmeM2V93tx igmYtmgKJJXFVMFgEAE0IdhCDOXUBj7AeSFsD5i 153/BZSFlbThfzPgkwMWIyfEsooMrsRfahEt24QaLoneLmIii6xHEfPKw1WJhLjCxIAcRCzjEY2TQqd1ouazfWyar5Qd38bq8YWtEHzirWruFGjWJQzuf4wBisfMhx7mdPzDWCY8uNGfn9N XjJ17 txtonlqVmqQWUYJWpOzHG y48gm2AfpbojdS2ePn6M4LknBCPv8PAdwVcP92 2PtNWfYD Nvf5UKdtAclZB49nxceTZmB281c4ewN5/Si2XkCwPb2zhjwFScrVSFjUa0RzLWhfIJ5LWBT SQxZiTWJ4LPlYufFSn0E8ngOTLF7mJ2hE2hGLl8k0/lQVWbog50qZCzmlIl3AQpTDl1JmYAK4Dhv2w7sk7P08670Jj0CJp34KF4aKKGZHCljvqQNKkSgcTkbjQB9ImuMUj8JhJBoH7kDigLUkCofvonFgD4QD1sIoHE4PKw4hJifvWSIV5SwxsU9niWz4o7yPyvSTOUt0Por5Cl5l/VAoqiIOdEa0D0V8zYfwDdb/xKT A2liO9Y=
调用api
在Visual Baisc.net中的声明：
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动
例：
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在（10，10）模拟鼠标左键按下
可以借助DirectX来编程。免费3D引擎可不好找，一般来说速度比不上硬件加速后的DX，尤其令人头疼的是一般都没有针对VB的文档，LZ有这方面理想的话，自己写一个吧……
我不得不承认在VB上写DirectX的教程相当难找！如果LZ想深入研究三维图形问题，C++一定要学，就算不能用C++编程，起码要能把C++程序翻译成VB程序。
我自己学会DX编程花了两三个月（很浅）。编这样一个程序难度是有点大的。
工具：DirectX9和其针对VB的库(项目-添加引用。.NET库里DX库一般都有)，VB不知道现在支不支持DX10以上的版本，不过9绝对够用了。
思路：一切3D图形都是由三角形拼成的。矩形挖掉一个圆孔可不是一个方便画的图形，我估计至少得有24个三角形。你需要记录这些点的坐标，或者干脆把它们写在文件里，到时读出来。
这是我的一个老DX程序的不完全的代码(显示一个黑乎乎的平面)，不一定能编译，可以参考一下。
Imports Microsoft.DirectX '一定要~
Public Class FormMain
'Direct3D Startup
Dim d3dpp As New Direct3D.PresentParameters 'DX基本参数，例如全屏还是窗口等
Public MyDevice As Direct3D.Device ‘DX基本设备，画图就靠它。
'Matrices
Dim matWorld, matView, matProj As Matrix '世界位置矩阵，摄像机位置矩阵和透视矩阵，数学要学好啊。
'mesh
Public MyPlane as Direct3D.Mesh ’我们的物体
Public VBPlane(3) As Direct3D.CustomVertex.PositionNormalTextured '存放顶点位置的数组
#Region "DX Core"
Public Sub InitDeviceObjects()
With d3dpp ‘以下请照抄。
.Windowed = True ‘不全屏。
.SwapEffect = Direct3D.SwapEffect.Discard ’双缓冲交换效果。请百度“双缓冲”
.BackBufferFormat = Direct3D.Format.Unknown
.EnableAutoDepthStencil = True ’让DX自动管理深度缓冲
.AutoDepthStencilFormat = Direct3D.DepthFormat.D16
End With
MyDevice = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, Direct3D.CreateFlags.HardwareVertexProcessing, d3dpp) '创建DX设备啦！以下两句请照抄。
MyDevice.SetRenderState(Direct3D.RenderStates.ZEnable, True) ‘Z缓冲
MyDevice.SetRenderState(Direct3D.RenderStates.NormalizeNormals, True)'法线归一化，请看相关数学书籍。
End Sub
Public Sub RestoreDeviceObjects()
Dim PlaneIB() As Short = {0, 1, 3, 0, 2, 3} ’顶点索引信息。
Dim AttrTable(1) As Direct3D.AttributeRange ‘顶点分组属性表
AttrTable(0).AttributeId = 0
AttrTable(0).FaceStart = 0
AttrTable(0).FaceCount = 2 ’有两个三角形
AttrTable(0).VertexStart = 0
AttrTable(0).VertexCount = 4 ‘四个点
‘顶点坐标信息。
VBPlane(0) = New Direct3D.CustomVertex.PositionNormalTextured(-500, -500, 0, 0, 0, 1, 0, 0)
VBPlane(1) = New Direct3D.CustomVertex.PositionNormalTextured(500, -500, 0, 0, 0, 1, 1, 0)
VBPlane(2) = New Direct3D.CustomVertex.PositionNormalTextured(-500, 500, 0, 0, 0, 1, 0, 1)
VBPlane(3) = New Direct3D.CustomVertex.PositionNormalTextured(500, 500, 0, 0, 0, 1, 1, 1)
MyPlane = New Direct3D.Mesh(2, 4, Direct3D.MeshFlags.Managed, Direct3D.VertexFormats.Position + Direct3D.VertexFormats.Normal + Direct3D.VertexFormats.Texture1, MyDevice) ’创建物体
MyPlane.SetVertexBufferData(VBPlane, Direct3D.LockFlags.None) ‘输入顶点坐标数据
MyPlane.SetIndexBufferData(PlaneIB, Direct3D.LockFlags.None) ‘输入索引数据
MyPlane.SetAttributeTable(AttrTable) ‘输入顶点分组属性表
End Sub
Public Sub Render() ‘调用它画图
Dim vlook As New Vector3(1, 0, 0)
Dim vPos As New Vector3(0,0,0)
Dim vUp As New Vector3(0, 0, 1)
MatView = Matrix.LookAtLH(vPos, vlook, vUp) ‘计算摄像机位置矩阵
Device.SetTransform(Direct3D.TransformType.View, MatView) ‘设置当前摄像机位置矩阵为MatView。
Dim fAspect As Single = Me.Width / Me.Height ’窗口长宽比
matProj = Matrix.PerspectiveFovLH(Math.PI / 4, fAspect, 1.0F, 10001) ‘计算透视矩阵MatProj。
MyDevice.SetTransform(Direct3D.TransformType.Projection, matProj) ‘设置当前透视矩阵为MatProj。
MyDevice.Clear(Direct3D.ClearFlags.Target + Direct3D.ClearFlags.ZBuffer, Color.Blue, 1.0F, 0) ’先刷蓝屏
MyDevice.BeginScene() ‘开始画
MatWorld = Matrix.Identity ’物体位于原点，不旋转
Device.SetTransform(Direct3D.TransformType.World, MatWorld) ’设置物体位置
Me.Mesh.DrawSubset(0) ‘画物体
MyDevice.EndScene() ’结束
MyDevice.Present() ‘显示在屏幕上
End Sub
Public Sub DeleteDeviceObjects() ’结束程序时放掉资源
MyPlane.Dispose()
MyDevice.Dispose()
End Sub
#End Region
Private Sub FormMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
DeleteDeviceObjects()
Windows.Forms.Cursor.Show()
End Sub
Private Sub FormMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
InitDeviceObjects()
RestoreDeviceObjects()
Windows.Forms.Cursor.Hide()
Render()
End Sub
End Class
