Private Sub TabKGMAnordnungen_ItemClick(ByVal Item As MSComctlLib.ListItem)
 ItemPosLeft = Item.Left * -1
 ItemPosTop = Item.Top * -1
 ItemWidth = Item.Width
 ItemHeight = Item.Height
 nIndex = Item.Index
End Sub
 
Private Sub TabKGMAnordnungen_DblClick()
  ' Spalte ermitteln
With TabKGMAnordnungen
 
XCount = 0
XCountOld = 0
Column = 0
newposx = 0
For a = 1 To .ColumnHeaders.Count
 XCount = XCount + .ColumnHeaders(a).Width
 If XCount >= xpos + ItemPosLeft And XCountOld <= xpos + ItemPosLeft Then
  Column = a
  newposx = XCountOld - ItemPosLeft
 End If
 XCountOld = XCount
Next a
 
end sub