
23/05/2006, 20:25
|
| | Fecha de Ingreso: abril-2005
Mensajes: 351
Antigüedad: 20 años Puntos: 3 | |
hola prova de esta forma: Cita: Option Explicit
Const LW_KEY = &H1
Const G_E = (-20)
Const W_E = &H80000
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
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
'On Error Resume Next
Dim Ret As Long
Dim TC As Long
TC = vbRed
Ret = GetWindowLong(hWnd, G_E)
Ret = Ret Or W_E
SetWindowLong hWnd, G_E, Ret
SetLayeredWindowAttributes hWnd, TC, 0, LW_KEY
Me.BackColor = vbRed
End Sub elimina todas las regiones rojas que aya dentro del formulario si queres que sea otro color cambia el vbred por otro color |