drawText问题

Question

我想在进度条控件上加上表示进度的数字。
可用drawtext不能成功。同样的的代码用于form就可以。不怎么解决!请帮忙看一下。谢谢！
Dim mlnghDC As Long
Dim mlngRet As Long
Dim mRect As RECT
Dim mstrTemp As String    mlngRet = GetWindowRect(ProgressBar1.hwnd, mRect)
    mlnghDC = GetDC(ProgressBar1.hwnd)
    Debug.Print mRect.Bottom    mstrTemp = "dd"
    mlngRet = DrawText(mlnghDC, mstrTemp, -1, mRect, DT_CENTER)

Answer 1

Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long应该使用GetClientRect而非GetWindowRect