ListView1.ListItems(1).ForeColor = vbRed

Private Sub Form_Load()
Dim i As Integer
Dim li As ListItem
 
ListView1.View = lvwReport
 
ListView1.ColumnHeaders.Add Text:="hola", Width:=1000
 
For i = 1 To 8
Set li = ListView1.ListItems.Add(Text:="Item " & i)
Next i
 
ListView1.ListItems(1).ForeColor = vbYellow
ListView1.ListItems(2).ForeColor = vbBlue
ListView1.ListItems(3).ForeColor = vbRed
ListView1.ListItems(4).ForeColor = vbGreen
ListView1.ListItems(5).ForeColor = vbCyan
ListView1.ListItems(6).ForeColor = vbWhite
ListView1.ListItems(7).ForeColor = vbBlack
ListView1.ListItems(8).ForeColor = vbMagenta
End Sub
 
 
 

 Dim ChkBox As CheckBox = Nothing
 
        For Each xObject As Object In Me.GroupBox1.Controls
            If TypeOf xObject Is CheckBox Then
                ChkBox = xObject
                ChkBox.Checked = True
            End If
        Next

 For Each ctrl As Control In Me.Controls
 
            If TypeOf ctrl Is CheckBox Then
                DirectCast(ctrl, CheckBox).CheckState = CheckState.Checked
            End If
 
        Next

ar = []
num=''
 
while (num!=0):
	num = int(input("Introduce un numero: "))
	ar.append(num)
 
r = max(ar)
print ('Maximo: ' ,r)