Option Explicit
 
' ListSubItems(ID).ForeColor hat 2 Bug's
' - es gibt keinen Refresh, das Neuzeichnen muss explizit erzwungen werden
' - die Farbe Blau (vbBlue bzw. RGB(0,0,255) wird als Schwarz dargestellt
Private Sub Form_Load()
  Dim R As Long, C As Long
 
  ListView1.ColumnHeaders.Clear
  ListView1.ListItems.Clear
 
  ListView1.ColumnHeaders.Add , , "Red"
  ListView1.ColumnHeaders.Add , , "Green"
  ListView1.ColumnHeaders.Add , , "Blue"
 
  ListView1.View = lvwReport
 
  For R = 0 To 255
    With ListView1.ListItems.Add(, , "RGB(" & CStr(R) & ",0,0)")
      .ForeColor = RGB(R, 0, 0)
 
      .SubItems(1) = "RGB(0," & CStr(R) & ",0)"
      .ListSubItems(1).ForeColor = RGB(0, R, 0)
      .SubItems(1) = .SubItems(1) 'Neuzeichnen erzwingen
 
      .SubItems(2) = "RGB(0,0," & CStr(R) & ")"
      .ListSubItems(2).ForeColor = RGB(0, 0, R)
      .SubItems(2) = .SubItems(2) 'Neuzeichnen erzwingen
 
    End With
  Next R
 
End Sub
 
Private Sub Form_Resize()
  With ListView1
    .Left = 0
    .Top = 0
    .Width = ScaleWidth
    .Height = ScaleHeight
  End With
End Sub

Viel Spass,
R@lf