我再桌面上新建了个指向某个网址的快捷方式，请问怎样用VB更改它的图标使它变成大E的那个图标？

Private Sub Command2_Click()
Dim strName As String, str1 As String, str2 As String
strName = Environ$("homepath") & "\桌面\" & "baidu.url" '假设网页快捷方式保存为“baidu”了就用“baidu.url”，如果是“百度”则是“百度.url”
Open strName For Input As #1
Line Input #1, str1
Line Input #1, str2
Close
str1 = str1 & vbCrLf & str2
Open strName For Output As #1
Print #1, str1 & vbCrLf & "IconIndex=0" & vbCrLf _
& "IconFile=C:\Program Files\Internet Explorer\IEXPLORE.EXE"
Close
End Sub

单击右键你想改的那个图标，查看它的属性。就能看到上方有一个‘自定义’。点击它，在左下角有一个‘更改图标’，进去之后就能看到很多的图标，大e就在那里面找吧！