一个VisualBasic6.0屏幕放大镜源码，启动放大镜后，在托盘处显示图标，点击图标可弹出右键菜单，可对放大镜进行设置和退出，使用鼠标滚轮调整放大倍数。添加图标至通知栏图标功能用了一个类：参数说明：iHwnd：窗口句柄，sTips：当鼠标移到通知栏图标上时显示的提示内容；hIcon：图标句柄，IconID：图标Id号，删除通知栏图标(参数说明同Icon_Add)。这是一个参赛源码，比较优秀的VB源程序。-A VisualBasic6.0 screen magnifier source, start the magnifying glass at the tray icon is displayed, click on the icon pop-up menu on the magnifying glass set in and out, use the mouse wheel to adjust the magnification. Add an icon to the notification bar icon functions with a class: Parameter Descr iption: iHwnd: window handle, STIPs: prompt displayed when the mouse is moved to the notification bar icon content　hIcon: icon handle IconID: icon Id number, delete the notification bar the icon (parameter Descr iption Icon_Add to). This is a competition to source good VB source code.