Option expedition
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As LONG) AS Longprivate Declare Function SendMessage Lib "User32" Alias "SendMessagea" (Byval HWnd As Long, Byval WParam As Long, LParam as a
Private const gwl_style = (-16) private constlivate const lvm_getheader = (LVM_First 31) Private const hds_buttons = & h2
Private sub flow_load ()
Dim hHeader As Long, lStyle As LongDim i As IntegerListView1.View = lvwReportWith ListView1.ColumnHeaders.Add,, "number", 500, lvwColumnLeftFor i = 1 To 10.Add,, "content item" & i, 1000, lvwColumnRightNextEnd With
HHEADER = SendMessage (ListView1.hWnd, Lvm_getHeader, 0, Byval 0 &) LStyle = getWindowlong (hheader, gwl_style) setWindowlong Hheader, gwl_style, lstyle xor hds_buttonsend sub
