Set ListView Text Background Color
Preparations
Add 1 ListView
Control to your form.
Module Code
Public Const
LVM_FIRST As Long = &H1000
Public Const LVM_SETTEXTBKCOLOR As Long =
(LVM_FIRST + 38)
Declare Function SendMessage Lib "user32" Alias
"SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal
wParam As Long, _
ByVal lParam As Long) As Long
Form Code
Private Sub
Form_Load()
ListView1.ListItems.Add , ,
"Hello"
Call SendMessage(ListView1.hwnd,
LVM_SETTEXTBKCOLOR, 0&, vbRed)
End Sub