s Single, ByVal eButton As MouseButtonConstants)
   lstTest.AddItem "DblClick " &amp; iPanel
End Sub

Private Sub sbrMain_DrawItem(ByVal lHDC As Long, ByVal iPanel As Long, ByVal
 lLeftPixels As Long, ByVal lTopPixels As Long, ByVal lRightPixels As Long,
 ByVal lBottomPixels As Long)
Dim tR As RECT

   'lstTest.AddItem "OwnerDraw DrawItem " &amp; iPanel
   tR.Left = lLeftPixels
   tR.Right = lRightPixels - 1
   tR.Top = lTopPixels
   tR.Bottom = lBottomPixels - 1
   BitBlt lHDC, tR.Left, tR.Top, tR.Right - 