listview5

Set ListView Text Background Color

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