参数问题？？

[Fenks]

下面的代码是用于动态图标设置的代码，单独使用没有问题。但我想把代码放到单独的类中以便代码重用时，出现了问题。NotifyIconName.Icon = New System.Drawing.Icon(GetType(Form1).Assembly.GetManifestResourceStream(IconName))中的type类型“Form1”用于参数传递时，总不成功，不知什么原因。下面是完整的代码。FormName参数设置为type/object都不成功。
''' -----------------------------------------------------------------------------
''' <summary>
''' 动画图标设置过程(NotifyIcon控件)
''' 示例:
''' Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
''' Dim s As String
''' i = i + 1
''' If i = 3 Then
''' i = 1
''' End If
''' s = "TEST20050823.Gnome" & i & ".ico"
''' IconLoop(s, NotifyIcon1)
''' End Sub
''' </summary>
''' <param name="IconName">要设置的图标文件名</param>
''' <param name="NotifyIconName">NotifyIcon控件名</param>
''' <remarks>
''' </remarks>
''' <history>
''' [Administrator] 2005-8-27 Created
''' </history>
''' -----------------------------------------------------------------------------
Sub IconLoop(ByVal FormName As Type, ByVal IconName As String, ByVal NotifyIconName As NotifyIcon)
'系统图标动画
'注：对于嵌入的系统资源可以使用 根命名空间.资源文件名 来进行调用
NotifyIconName.Icon = New System.Drawing.Icon(GetType(FormName).Assembly.GetManifestResourceStream(IconName))
End Sub

[hamadou]

使用
NotifyIconName.Icon = New System.Drawing.Icon(GetType.Assembly.GetManifestResourceStream(IconName))
试下！