Transparent Rich Text Box

[William]

Difficulty: 1/5

Put this in modDeclares:

Code:

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&

And put this in Form_Load in the form that has the rich text box that you want transparent:

Code:

Dim result As Long
result = SetWindowLong(txtChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)

txtChat is the name of the rich text box. Done!