Cómo hacer que los controles de formulario sean transparentes en VB
'Establecer
Borde del
formulario
en
Ninguno.'
'Agregar
Sonido
Parte de
Forma
a
Parte
con
Parte
de
El
Código
Privado
Privado
Abajo
Siguiente
Sustituir
Código
Privado
Declarar
Función
SetWindowLong
Lib
"user32"
Alias
_
"SetWindowLongA "
(ByVal
hwnd
Como
Largo,
ByVal
nIndex
Como
Long,
_
ByVal
dwNewLong
Como
Largo)
Como
Largo
Privado
Declarar
Función
SetParent
Lib
"usuario32"
(ByVal
hWndChild
_
Tan
Long,
ByVal
hWndNewParent
Tan
Long) <
Como
Largo
Const
WS_EX_TRANSPARENT
=
amp; H20amp;
Const
GWL_EXSTYLE
=
(-)20)
Finalmente
Después
Agregar
al
formulario
como
el
siguiente
Sustituir
Código
Privado
Sub
Form_Load()<
SetWindowLong
hwnd,
GWL_EXSTYLE,
WS_EX_TRANSPARENT
Fin
Sub