Mengubah Lebar Header ListView Pada Saat RUNTIME

PERSIAPAN
NO	COMPONENTS			KETERANGAN
1.	Microsoft Windows Common Controls 5.0 (Sp2)			Cara menambahkannya adalah dengan menekan CTRL+T atau tekan menu Project dan pilih Components
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
2.	ListView	1	View	3-lvwReport
3.	CommandButton	1	Caption	Tes

Masukkan souce ini ke dalam Form :Private Sub Form_Load() 'the code below add 3 headers to the ListView With ListView1 .ColumnHeaders.Add , , "Header 1" .ColumnHeaders.Add , , "Header 2" .ColumnHeaders.Add , , "Header 3" .ColumnHeaders.Add , , "Header 4" End With End Sub Private Sub Command1_Click() Dim Column As Long Dim Counter As Long Counter = 0 For Column = Counter To ListView1.ColumnHeaders.Count - 1 SendMessage ListView1.hWnd, LVM_SETCOLUMNWIDTH, Column, LVSCW_AUTOSIZE_USEHEADER Next End Sub

Masukkan souce ini ke dalam Form :Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Const LVM_FIRST = &H1000 Public Const LVM_SETCOLUMNWIDTH = (LVM_FIRST + 30) Public Const LVSCW_AUTOSIZE = -1 Public Const LVSCW_AUTOSIZE_USEHEADER = -2