10 lines
333 B
VB.net
10 lines
333 B
VB.net
|
Imports System.Reflection
|
||
|
|
|
||
|
|
Public Class ListViewDoubleBuffer
|
||
|
|
Public Shared Sub Enable(ByVal listView As ListView)
|
||
|
|
Dim aProp As PropertyInfo = GetType(Control).GetProperty("DoubleBuffered", BindingFlags.NonPublic Or BindingFlags.Instance)
|
||
|
|
aProp.SetValue(listView, True, Nothing)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
End Class
|