>>727
とりあえずちょっと試してみた。ソースが VB なのは勘弁してくれ(これくらいならわかるっしょ？)
DC_TEXT をつけないと、何故かうまくいかないんだよなぁ…。
ここら辺わかったら情報をフィードバックしてくれ。

Private Declare Function DrawCaption Lib "User32" (ByVal hWnd As Long, ByVal hdc As Long, lprc As RECT, ByVal uFlags As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const DC_ACTIVE As Long = &H1
Private Const DC_ICON As Long = &H4
Private Const DC_INBUTTON As Long = &H10
Private Const DC_SMALLCAP As Long = &H2
Private Const DC_TEXT As Long = &H8
Private Const DC_GRADIENT As Long = &H20

Private Sub Command1_Click()
Dim r As RECT
r.Left = 10
r.Top = 20
r.Right = 200
r.Bottom = 40
Call DrawCaption(Me.hWnd, Picture1.hdc, r, DC_ACTIVE Or DC_GRADIENT Or DC_TEXT)
End Sub