Public Sub werte()
    ' Eigenschaften des Ausgabeobjekts festlegen
    frm_auswertung.AutoRedraw = True
    frm_auswertung.Width = 8655
    frm_auswertung.Height = 5700
    frm_auswertung.Print ""
    frm_auswertung.Print " Begabung in Prozent:"
 
    ' Legende
    bezeichner(0) = "irgendwas1": bezeichner(1) = "irgendwas2"
    bezeichner(2) = "irgendwas3": bezeichner(3) = "irgendwas4"
 
    ' Werte
    begabung(0) = t: begabung(1) = u: begabung(2) = s
    begabung(3) = w
 
    ' Farben
    farben(0) = vbBlue: farben(1) = vbRed: farben(2) = vbGreen
    farben(3) = vbYellow
 
End Sub

Private Sub Form_Load()
 
    w = 0: t = 0: u = 0: s = 0
 
    postframe
 
    lbl_frage.Caption = "irgendetwas"
 
    eigenschaften chk_1, chk_2, chk_3, chk_4
 
    diagrammwerte chk_1, chk_2, chk_3, chk_4, w, t, w, u
 
End Sub

Sub diagrammwerte(name1 As Object, name2 As Object, _
name3 As Object, name4 As Object, wert1 As Byte, _
wert2 As Byte, wert3 As Byte, wert4 As Byte)
 
    If name1.Value = cAktiviert Then
        wert1 = wert1 + 1
    End If
 
    If name2.Value = cAktiviert Then
        wert2 = wert2 + 1
    End If
 
    If name3.Value = cAktiviert Then
        wert3 = wert3 + 1
    End If
 
    If name4.Value = cAktiviert Then
        wert4 = wert4 + 1
    End If
End Sub