往哪裡加入圖標，可以細說一下嗎？我現給你編一下程序，不知對這位朋友是否有用。
首先在VB中新增一個新的窗體，具體步驟：工程－新增窗體－開啟即可。
第二、再在該窗體上新增一個command按鈕：命名為cmddj(cmd單擊)、caption屬性為「開啟」.
微調內容：「第三、在工程－元件中選取“Microsoft Common Dialog Control 6.0”，並在工具箱中新增該控制項到新建的窗體中。注意該控制項在執行時不可見，大小不可調整。」
第四、再在窗體上畫一個Picture控制項。大小適中name屬性為Picture1。
然後為cmddj控制項新增點選事件，程式碼如下
Private Sub Command1_Click()
Dim s As String
CommonDialog1.InitDir = ＂e:＂
CommonDialog1.ShowOpen
s = CommonDialog1.FileName #Picture1.Picture = LoadPicture(s)
End Sub
在程式執行時點擊「開啟」按鈕會出現一個對話框，然後找到你要的圖示點擊「開啟」就可以開啟了。
不知我說的這個是不是這位朋友想要的。如果不是我這還有一個方法。
如果你是要修改窗體的圖示的話，那就修改主個窗體的icon屬性即可。在這兒我推薦使用VB的圖示庫作為圖示來源。
VB6 0產生的程式 ICO圖示問題
用IconWorkshop 或其他的軟體處理圖標，修改圖標，添加小分辨率低品質的，如果不確定，把全部都選上去，然後保存，vb裡就可以用了，在資源管理器裡是高品質的，但vb窗體圖示是低品質的，你需要用最下面的程式碼設定圖示。
IconWorkshop的具體操作步驟：
開啟圖示以後新增多種圖片格式
#就像這樣，如果你不計較檔案大小的話，你也可以全部選上
#結果：
Private Const ICON_BIG = 1
Private Const ICON_SMALL = 0
Private Const WM_SETICON = &H80
Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#Private Declare Function ExtractIcon Lib ＂shell32.dll＂ Alias ＂ExtractIconA＂ (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Public Sub SetWindowIcon(hWnd As Long)
Dim hIcon As Long
hIcon = ExtractIcon(App.hInstance, App.EXEName & ＂.exe＂, 0)
###SendMessage hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon#### ###SendMessage hWnd, WM_SETICON, ICON_BIG, ByVal hIcon#### ###End Sub###以上是VB程式中如何新增圖標的詳細內容。更多資訊請關注PHP中文網其他相關文章！
