Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&
 
 
Private Sub Form_Load()
Dim result As Long
result = SetWindowLong(Text1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
End Sub