要为窗体程序添加图标，您可以按照以下步骤操作：
添加图标文件
创建一个新的Windows Forms应用程序或在现有项目中添加一个新的窗体。
在解决方案资源管理器中，右键单击项目名称，然后选择“添加” -> “现有项”。
导入您的自定义图标文件（通常为 .ico 格式）。
设置窗体图标
打开窗体的代码文件（例如 Form1.vb）。
在窗体的加载事件处理程序中（例如 Form1_Load），添加以下代码来设置窗体的默认图标：
```vb
Me.Icon = New Icon（"your_icon.ico"）
Me.Text = "自定义窗口"
```
请将 "your_icon.ico" 替换为您具体使用的文件名。运行此代码后，窗体上方将显示出您指定的自定义图标。
使用API函数（适用于VBA编辑器）
在VBA编辑器中，插入一个模块。
输入以下代码：
```vb
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" （ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long） As Long
Private Declare Function SendMessage Lib "use32" Alias "SendMessageA" （ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long） As Long
Private Declare Function FindWindow Lib "use32" Alias "FindWindowA" （ByVal lpClassName As String, ByVal lpWindowName As String） As Long
Private Sub UserForm_Initialize（）
Dim hWndForm&, hIcon&
hWndForm = FindWindow（"ThunderDFrame", ""）
hIcon = ExtractIcon（0, "your_icon.ico", 0）
SendMessage hWndForm, 0x0080, 0, hIcon
End Sub
```
请将 "your_icon.ico" 替换为您具体使用的文件名。这段代码会在窗体初始化时设置窗体的图标。
使用Qt框架
如果您使用的是Qt框架，可以在窗体的构造函数中设置图标：
```cpp
QMainWindow::QMainWindow（QWidget *parent）
: QMainWindow（parent）
{
setIcon（QIcon（"your_icon.ico"））；
}
```
请将 "your_icon.ico" 替换为您具体使用的文件名。
使用NotifyIcon控件（适用于Windows Forms）
在窗体上添加一个NotifyIcon控件。
设置NotifyIcon控件的Icon属性为您自定义的图标文件。
将NotifyIcon控件的Visible属性设置为true，以便在任务栏的状态通知区域中显示图标。
请根据您的开发环境和使用的编程语言选择合适的方法来为窗体程序添加图标。以上方法适用于Windows Forms和WPF应用程序，以及使用Qt框架的应用程序。
