参考代码
For Each frm As System.Windows.Forms.Form In Application.OpenForms If frm.name = "frmTalker" Then frm.icon = new icon("d:\test.ico") End IfNext