Agregar un icono a un userform

Hola de nuevo para este magnifico foro.

Esta vez me ha despertado una inquietud y se trata , si es posible colocar un icono a un userform en excel, he analizado en las propiedades y no se encuentra la propiedad "icon" como en visual Basic. Mediante código sera posible?.

he buscado en internet y encontré el siguiente código pero no me da error de compilación.

aca se los dejo por si hay alguna manera de que funcione.

Option Explicit
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&
Private Declare Function FindWindow _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
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 Sub UserForm_Initialize()
Dim hwnd As Long
Dim hIcon As Long
'capturamos la imagen de nuestro objeto "Image"
hIcon = Image1.Picture
'Obtenemos el "Handle" del Userform
hwnd = FindWindow("ThunderDFrame", Me.Caption)
'Enviamos el mensaje de "cambio" al UserForm
SendMessage hwnd, WM_SETICON, ICON_SMALL, ByVal hIcon
SendMessage hwnd, WM_SETICON, ICON_BIG, ByVal hIcon
End Sub

uno de los errores esta en la linea "User32"

mi excel es 2010

gracias...

waquiro..