.GraphType = gBar
.Count = 10
.NumSets = 2
 
For x = 1 to 10
  .CurSet = 1
  .Data(x).Value = Cint(Punkte) 'z.B. 50
  .Data(x).Text = x
next

If AufgabeKomplett Then
  With Graph1
    .LockUpdate True
    .CurSet = 2
    .Data(1).Value = Cint(Punkte) 'z.B. 40 oder 60
    .LockUpdate False
    .Refresh
  End With
End If