Êàê íàðèñîâàòü ñåòêó â ListView

Ñëåäóþùèé êîä ðèñóåò ëèíèè ìåæäó ñòðîêàìè è êîëîíêàìè:

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 Sub Lines(ByRef lstobj As ListView) 
    Dim Estilo As Long 
    Estilo = 33 
    NuevoEstilo = SendMessageLong(lstobj.hwnd, &H1000 + 54, 0&, Estilo) 
End Sub 

Private Sub Form_Paint() 
   Call Lines(lsvExample) 
End Sub