If row.Item("Status") = True Then mitem.SubItems.Add("Active").ForeColor = Color.GreenYellow ElseIf row.Item("Status") = False Then mitem.SubItems.Add("Inactive") End If