Transparent Control (Not form)
Posted on 1998-10-16
I know how to get a form to be transparent, but how do I get it's controls to be also transparent?
ie: a form with a text box is transparent, but the text box has the background color of the form's color.
Here is the code I use for the with a form with only one text box:
Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&
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 Ret As Long
Ret = SetWindowLong(Me.hWnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
Please, no OCX; just plain API call