vb中修更换用程序图标的代码？

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Sub Main()

InitCommonControls

Load frmMain

End Sub

你首先要明确你是要修改的什么图标?
1 .如果你是要修改你编写的程序在生成的EXE的图标那么,你需要到工程属性下面去修改,VB 默认的生成后的EXE的图标为启动窗口的图标,而默认启动窗口为form1 .你可以修改FORM1的图标达到修改生成EXE后的图标. 也可以到 "工程"-"工程1(假定你现在的工程为它)属性" --"生成(选项卡)"--"应用程序下的图标中选择其它窗体的图标作为EXE的图标"
2. 你要修改的是窗体的图标那么,在窗体属性中(默认在工作平台的右边)找到"Icon" 当鼠标点到它的时候 会出现"..."的按钮,选择你要作为图标的图标文件,就可以了.

'在窗体中有一个命令按钮Command1
'在①处填入一个图标（*.ico)文件的路径，指定要更换成什么图标
'点击命令按钮即可更换成指定图标！！
Private Sub Command1_Click()
Me.Icon = LoadPicture("①") '文件名是字符串型
End Sub
'如果无法加载图标文件需要检查图标文件格式和文件路径！

Me.Icon = LoadPicture("c:\a.ico")

Me.Icon = LoadPicture("路径")