Dim pnmhdr = CType(m.GetLParam(GetType(NMHDR)), NMHDR) If pnmhdr.code = NM_CUSTOMDRAW Then Dim pnmlv = CType(m.GetLParam(GetType(NMLVCUSTOMDRAW)), NMLVCUSTOMDRAW) Select Case pnmlv.nmcd.dwDrawStage Case CDDS.CDDS_PREPAINT If (pnmlv.dwItemType = LVCDI_GROUP) Then Dim rectHeader As New RECT With { .top = LVGGR_HEADER } Dim rectGroep As New RECT With { .top = LVGGR_GROUP } Dim nItem = CInt(pnmlv.nmcd.dwItemSpec)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)