ListView Option B Fill

Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        Dim CardType As String = Nothing

        RadioButton2.Font = IIf(RadioButton2.Checked = True, New Font(RadioButton2.Font, FontStyle.Bold), New Font(RadioButton2.Font, FontStyle.Regular))

        If RadioButton2.Checked = True Then
            For x As Integer = 1 To NumberOfCards
                CardType = IIf(Trim(Mid(MyCard(x, 1, 1), 5, 1)) = "H", "Hard", "Special")
                Dim wrditem As New ListViewItem
                wrditem.Text = Str(x)
                wrditem.SubItems.Add(wrditem.Text)
                ListView1.Items.Add(CardType)
            Next
        End If

    End Sub