Contenido, cual? de que forma?
bueno en dado caso aqui tienes para hacerlo transparente:
Antes que nada disculpa el ponertelo asi, la razon es por que de igual forma puedes usar la funcion Transparencia para hacer otras cosas transparentes ademàs del form!¡.
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const LWA_ALPHA = &H2&
Public Function Transparencia(Handle As Long, Level As Byte) As Long
Dim Estilo As Long
Estilo = GetWindowLong(Handle, GWL_EXSTYLE)
Call SetWindowLong(Handle, _
GWL_EXSTYLE, _
Estilo Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Handle, 0, Level, LWA_ALPHA)
Transparencia = 1
Exit Function
errs:
Transparencia = 0
End Function
Public Function Transparencia_Form(ByVal hwnd As Long, valor As Integer) As Long
On Local Error GoTo errs
If valor < 0 Or valor > 255 Then
Transparencia_Form = 1
Else
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
Call Transparencia(hwnd, CByte(valor))
Transparencia_Form = 0
End If
Transparencia_Form = 1
Exit Function
errs:
Transparencia_Form = 0
err.clear
End Function
Para hacer Regiones del form transparente es de otra forma, creo que ya esta posteada esa forma desde hace tiempo en el foro!¡.
Dulces Lunas!¡.