Formulario Transparente

Yabin
30 de Marzo del 2004
Como puedo lograr que un formulario sea transparente con una API pero que muestre los controles que tiene el formulario

Andres Guerrero
30 de Marzo del 2004
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 SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long



Private Sub Command1_Click()
'Code:
SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME


End Sub

Este codigo lo baje de www. vbcode.com espero que sirva y te ayude

Saludos