(RB 5.5)
In the ListBox's HeaderPressed event:
Dim i as Integer
Dim s as String
If IdontWantHeadersToBePressed Then
me.SortedColumn = -1
s = me.Heading(0)
For i = 1 To me.ColumnCount -1
s = s + chr(9) + me.Heading(i)
Next
me.HasHeading = False
me.HasHeading = True
me.Heading(-1) = s
Return True
End If
Cheers,
Marc
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
