- Private Const GWL_EXSTYLE = -20
- Private Const WS_EX_LAYERED = &H80000
- Private Const WS_EX_TRANSPARENT As Long = &H20&
- Const LWA_COLORKEY = &H1
- Const LWA_ALPHA = &H2
- Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
- Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Buscamos en el Frm Main
- Private Sub Form_Load()
y abajo de en el mismo sub:
- InvEqu.Picture = LoadPicture(DirGraficos & "CentroInventario.jpg")
- Call LoadButtons
Ponemos:
- Call SetWindowLong(RecTxt.hWnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)




161![Newbie [4] Newbie [4]](./images/ranks/Rango3.gif)

![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)
![Newbie [2] Newbie [2]](./images/ranks/Rango1.gif)
![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)


![Destructor de Mentes [4] Destructor de Mentes [4]](./images/ranks/Rango16.gif)

![Dragon Ancestral [2] Dragon Ancestral [2]](./images/ranks/Rango31.gif)


