Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" ( _
  ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As _
  Long) As Long
Private Const LVM_FIRST = &H1000
Private Const LVM_DeleteAllItems = LVM_FIRST + 9
Private Const WM_SETREDRAW As Long = &HB
 
Public Sub DeleteAllItems(ByVal ListHwnd As Long)
    SendMessageLong ListHwnd, WM_SETREDRAW, False, 0
    SendMessageLong ListHwnd, LVM_DeleteAllItems, 0, 0
    SendMessageLong ListHwnd, WM_SETREDRAW, True, 0
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.