让文本框透明的模块.docxVIP

让文本框透明的模块文本框透明效果，很好的美化方法。（搜集于网络?）调用方法 makeTransparentTextbox+文本框控件名称效果图：模块代码：Option Explicit APIs to install our subclassing routinesPrivate Const GWL_WNDPROC = (-4)Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function CallWindowProc Lib user32 Alias CallWindowProcA (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Function DefWindowProc Lib user32 Alias DefWindowProcA (ByVal hwnd As Long, ByVa