在Text边框画高亮线

Question

HI all：
我现在将A程序中的一个Text控件子类化，然后截取WM_PAINT事件，想在它的边框画线，但是不熟悉图像的相关编程，请求帮助。
我的实现如下：
Private Function SubWndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error Resume Next
If Msg = wm_paint Then
    'SetWindowText hwnd, "吴正杰"
    Dim hdc As Long
    Dim rc As RECT
    Dim hb As Long
    hb = CreateSolidBrush(RGB(255, 0, 0))
    hdc = GetDC(hwnd)
    GetWindowRect hwnd, rc
    FrameRect hdc, rc, hb
End If
SubWndProc = CallWindowProc(PrevWndProc, hwnd, Msg, wParam, lParam)
End Function
代码执行：没有任何效果     
谢谢各位！

Answer 1

参考一下这里：
http://www.vbaccelerator.com/home/vb/code/Libraries/Subclassing/Tile_a_Bitmap_Into_a_TextBox/article.asp

Answer 2

//我现在将A程序中的一个Text控件子类化你的这个A程序是你的写的吗，不是的话，跨进程的子类可就麻烦了