If ListView1.SelectedItems.Count Then
 
            Dim i As Integer = ListView1.SelectedItems.Item(0).Index
            Dim blod As New Font("TimesNewRoman", 8, FontStyle.Bold)
            Dim noblod As New Font("TimesNewRoman", 8, FontStyle.Regular)
 
            If ListView1.Items(i).Font.Bold = True Then
                ListView1.Items(i).Font = noblod
            Else
                ListView1.Items(i).Font = blod
            End If
 
        End If

fg viperbone