Alguien Me Puede Ayudar Con Esto Por Favor

[Taurus427]

HOLA MIRAD HE ENCONTRADO UN CODIGO PARA OPTIMIZAR LA CARGA DE UN LISTVIEW PERO EN VISUAL BASIC 6.0
ESTE ES EL CODIGO
Private Declare Sub InvalidateRect Lib "user32" (ByVal hWnd As Long, ByVal t As Long, ByVal bErase As Long)

Private Declare Sub ValidateRect Lib "user32" (ByVal hWnd As Long, ByVal t As Long)


Private Sub Command2_Click()
Dim I As Long
ListView1.View = 3
With ListView1.ListItems
.Clear
For I = 1 To 1000
.Add , , "test " & CStr(I)
ValidateRect ListView1.hWnd, 0&
If (I Mod 10) = 0 Then InvalidateRect ListView1.hWnd, 0&, 0&
DoEvents
Next I
End With
InvalidateRect ListView1.hWnd, 0&, 0&
End Sub

ALGUIEN ME DICE COMO SERIA EN VISUAL BASIC .NET
POR FAVOR OS LO SUPLICO ES MUY IMPORTANTE LO NECESITO

DE VERDAD OS LO PIDO POR FAVOR AYUDADME

GRACIAS SALUDOS