vb.net ListView_DrawItem 改变网格线的颜色，一个完全可以使用的代码

以下是一个完整的示例代码，可以使用vb.net ListView控件中的 `DrawItem` 事件来改变网格线的颜色：

Private Sub ListView1_DrawItem(sender As Object, e As DrawListViewItemEventArgs) Handles ListView1.DrawItem
    e.DrawDefault = True '保留默认绘制
    If e.ItemIndex Mod 2 = 1 Then '奇数行
        e.Graphics.DrawLine(Pens.Gray, e.Bounds.Left, e.Bounds.Bottom - 1, e.Bounds.Right, e.Bounds.Bottom - 1) '下边框线
    End If
End Sub

Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
    e.DrawDefault = True '保留默认绘制
    e.Graphics.DrawLine(Pens.Gray, e.Bounds.Left, e.Bounds.Bottom - 1, e.Bounds.Right, e.Bounds.Bottom - 1) '下边框线
End Sub

Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
    e.DrawDefault = True '保留默认绘制
    If e.ItemIndex Mod 2 = 1 Then '奇数行
        e.Graphics.DrawLine(Pens.Gray, e.Bounds.Left, e.Bounds.Bottom - 1, e.Bounds.Right, e.Bounds.Bottom - 1) '下边框线
    End If
End Sub

在这个示例代码中，我们使用了三个事件来自定义vb.net ListView控件的绘制方式。在 `DrawItem` 事件中，我们使用 `e.Graphics.DrawLine` 方法来画下边框线。在 `DrawColumnHeader` 和 `DrawSubItem` 事件中，我们使用相同的方法画下边框线。

请注意，我们在这个示例代码中使用了 `e.ItemIndex Mod 2 = 1` 来判断当前列表项的索引是否为奇数。如果是奇数，我们就画出下边框线；如果是偶数，我们就保留默认的绘制方式。这是因为我们只想为奇数行添加网格线。如果您想为所有行添加网格线，可以将判断条件去掉。

此外，我们在这个示例代码中还启用了 `e.DrawDefault = True`，以便保留vb.net ListView控件的默认绘制方式。如果您想完全自定义vb.net ListView控件的绘制方式，可以将这些代码删除。