Dim i As Integer = 8
 
 
 
 
    Private Sub Plus_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Plus.Click
        i += 1
        Dim Font As New Font("TimesNewRoman", i)
        ' Schriftart übernehmen
        Me.ListView1.Font = Font
    End Sub
 
    Private Sub Minus_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Minus.Click
        If i <= 1 Then
            i = 1
        Else
            i -= 1
        End If
        Dim Font As New Font("TimesNewRoman", i)
        ' Schriftart übernehmen
        Me.ListView1.Font = Font
    End Sub

fg viperbone