Je reviens car... Je ne réussis pas

CODE
Private Sub Listart_DrawItem(ByVal iRow As Integer, ByVal iCol As Integer, ByVal lItemData As Long, ByVal iLeft As Integer, ByVal iTop As Integer, ByVal iWidth As Integer, ByVal iHeight As Integer)
Rectangle iLeft, iTop , iLeft + (iWidth-1) , iTop + iHeight,hbRectFillSolid
TextOut iLeft+1, iTop+1, "Test"
End Sub
J'ai testé avec un msgbox, je passe bien par cette procédure, mais je n'obtiens aucun affichage