Showing flat scrollbars in a ListView

To give your ListView flat scrollbars you can add some code to the Constructor-event of your ListView to give it a look like:

Long             ll_ExStyle
Constant Integer LVM_SETEXTENDEDLISTVIEWSTYLE = 4150
Constant Integer LVM_GETEXTENDEDLISTVIEWSTYLE = 4151
Constant Integer LVS_EX_FLATSB = 256

ll_ExStyle = Send( Handle( this ), LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0 )

ll_Exstyle += LVS_EX_FLATSB
ll_ExStyle = Send( Handle( this ), LVM_SETEXTENDEDLISTVIEWSTYLE, 0, ll_ExStyle )

This code just works with PowerBuilder 7.0 or later.