drawText问题

[linkinwork]

我想在进度条控件上加上表示进度的数字。
可用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)

[韧恒]

Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

应该使用GetClientRect而非GetWindowRect

[linkinwork]

谢谢!