方法一、没有单独的资源文件.resX,从主清单嵌入资源中读取信息()
Dim asm As [Assembly]
asm = [Assembly].GetExecutingAssembly()
'命名空间+嵌入资源文件名,区分大小写
Dim stream As Stream = asm.GetManifestResourceStream("命名空间.ServiceStart.ICO")
Me.Icon = New Icon(stream)
方法二、有独立的资源文件,从独立嵌入的资源文件.resX中读取信息()
Dim rm As New ResourceManager("命名空间.Resource", Me.GetType.Assembly) '命名空间+嵌入资源文件.resX名,区分大小写
Dim ic As Icon
ic = CType(rm.GetObject("Service"), Icon)
Me.Icon = ic
若无法确定baseName,可以使用下面的程序,列举程序集的资源名
Dim a As System.Reflection.Assembly = Me.GetType().Assembly
For Each s As String In a.GetManifestResourceNames()
Debug.WriteLine(s)
Next