Icono en la parte superior Izq de un Form

Hola Leandro,

En tu UserForm (digamos "UserForm1") crea un ActiveX control del tipo Image (digamos "Image1"). Ve a sus propiedades y usa la
propiedad 'Picture' para asignar el *.ico file que te parezca. Luego pon la propiedad 'Visible' en False y copia el siguiente codigo
en el modulo del UserForm:

Private Declare Function FindWindow& Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName$, _
ByVal lpWindowName$)
Private Declare Function SendMessage& Lib "user32" _
Alias "SendMessageA" (ByVal hWnd&, ByVal wMsg&, _
ByVal wParam&, lParam As Any)

Private Sub UserForm_Initialize()
Dim hWnd&
hWnd = FindWindow(vbNullString, Me.Caption)
SendMessage hWnd, &H80, 0, ByVal Image1.Picture.Handle
End Sub

Ahora desde un Modulo estandar ejecuta algo como esto:

Sub MostrarFormulario()
UserForm1.Show
End Sub

Saludos,
KL


"Leandro Ferrari" wrote in message news:
Mostrar la cita

Hola, tengo un form que utiliza la API de windows para que su estilo sea tipo ventana de windows.
La consulta que hago es como hago para poner un Icono en la parte superior izq del form.

Saludos
Leandro

Muchas Gracias,

"KL" escribio en el mensaje
news:
Mostrar la cita

Hola Leandro,

En tu UserForm (digamos "UserForm1") crea un ActiveX control del tipo
Image (digamos "Image1"). Ve a sus propiedades y usa la propiedad
'Picture' para asignar el *.ico file que te parezca. Luego pon la
propiedad 'Visible' en False y copia el siguiente codigo en el modulo del
UserForm:

Private Declare Function FindWindow& Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName$, _
ByVal lpWindowName$)
Private Declare Function SendMessage& Lib "user32" _
Alias "SendMessageA" (ByVal hWnd&, ByVal wMsg&, _
ByVal wParam&, lParam As Any)

Private Sub UserForm_Initialize()
Dim hWnd&
hWnd = FindWindow(vbNullString, Me.Caption)
SendMessage hWnd, &H80, 0, ByVal Image1.Picture.Handle
End Sub

Ahora desde un Modulo estandar ejecuta algo como esto:

Sub MostrarFormulario()
UserForm1.Show
End Sub

Saludos,
KL


"Leandro Ferrari" wrote in message
news:
Mostrar la cita

Hola, tengo un form que utiliza la API de windows para que su estilo sea
tipo ventana de windows.
La consulta que hago es como hago para poner un Icono en la parte
superior izq del form.

Saludos
Leandro