试试这个:
在窗体上加一个ListviewPrivate Sub Form_Load()
Dim itmTemp As ListItem
Dim itmSub As ListSubItem    With ListView1
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "Column 1"
        .ColumnHeaders.Add , , "Column 2"
        .View = lvwReport
        
        .ListItems.Clear
        Set itmTemp = .ListItems.Add(, , "Test")
        Set itmSub = itmTemp.ListSubItems.Add(, , "Sub1")
        itmSub.ForeColor = &HFF
    End With
End Sub