Private Sub Form_Load()
 
    w = 0: t = 0: u = 0: s = 0    ' hier setzt du alles auf 0
 
    postframe   ' ?
 
    lbl_frage.Caption = "irgendetwas"    ' Label Caption
 
    eigenschaften chk_1, chk_2, chk_3, chk_4  ' Hier setzt du die Eigenschaften
 
    diagrammwerte chk_1, chk_2, chk_3, chk_4, w, t, w, u  
' Hier gibst du die Diagrammwerte weiter an Sub Diagrammwerte, in dem Fall w 
' =0,t=0,u=0,s=0
 
End Sub