Private Sub Form_Load()
  ' WindowProc umleiten (Subclassing)
  lCCHwnd = Me.ListView1.hWnd
  lWindowProcOld = SetWindowLong(hWnd, GWL_WNDPROC, [u]AddressOf WindowProc)
 
  ' Hintergrundfarbe jeder zweiten Zeile
  glbLVWBackColor = &HC0E0FF
 
  ' Hier das ListView-Control mit Daten füllen
End Sub