Provocar la trasparencia de un formulario


Truco de Visual Basic 6.0 - Provocar la trasparencia de un formulario


Escribir el siguiente código:

Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long,
ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
Dim Resp As Long
Resp = SetWindowLong(Me.hwnd, -20, &H20&)
Form1.Refresh
End Sub



Más trucos de Trucos de Visual Basic 6.0

Trucos más leídos