As Long)
    Status "DividerDoubleClick:" &amp; lColumn
End Sub

Private Sub hdrColumns_Resize()
   '
   lstStat.Top = hdrColumns.Top + hdrColumns.Height
   lstStat.Height = fraInfo.Top - lstStat.Top - 4 * Screen.TwipsPerPixelY
   '
End Sub

Private Sub hdrColumns_RightClick(X As Single, Y As Single)
Dim i As Long
Dim mX As Long, mY As Long
   mX = X \ Screen.TwipsPerPixelX
   mY = Y \ Screen.TwipsPerPixelY
   i = hdrColumns.ColumnHitTest(mX, mY)
   Status "RightClick:" &amp; X &amp; "," &amp; Y &amp; "," &