Case 1
addess = ″http://www.netease.com/
end select
ElseIf kind = ″IT″ Then ′如果单击“IT“单选按钮则
Select Case Index
Case 0
addess = ″http://www.cce.com.cn/″
Call link
end select
ElseIf kind = ″hardware″ Then ′硬件
Select Case Index
Case 0
addess = ″http://www.mydrives.com″
Call link
end select
ElseIf kind = ″software″ Then ′软件
Select Case Index
Case 0
addess = ″http://www.newhua.com.cn/″
Call link
end select
endif
end sub
9．保存该工程，取名为“创新链接器”，并生成“创新链接器.EXE”。至此，一个简单的链接器就制作完成了。
测试：拨号上网，启动该链接器程序，把鼠标移动到“搜狐“，出现一个手形光标，并显示其网址：
http://www.sohoo.com.cn/。此时单击鼠标左键，浏览器被运行并打开 “搜狐”的主页，所示。
当然，我们还可扩充其功能，如：1.把常用的网址放入一个数据库，加入数据控件，使其成为一个搜索引挚；
2.添加一个systray控件，使程序启动后放入WIN95/WIN98状态栏的系统盒中等等。限于篇幅，这里不再具体说明。编写此程序旨在抛砖引玉，