Private Sub Form_Load()
Dim i As Integer
Dim minus As Double
Dim wert As Double
Dim x As Integer
 
wert = 7.75
 
Do
minus = GetRnd(wert)
If minus > 0 Then
If minus < wert Then
wert = wert - minus
lblOutput(i).Caption = minus
i = i + 1
 
For x = 1 To i
Load lblOutput(x)
Next x
 
Else
lblOutput(i).Caption = wert
i = i + 1
 
wert = wert - wert
End If
End If
 
DoEvents
Loop While wert > 0
 
End Sub
 
Private Function GetRnd(ByVal Max As Double)
Randomize Timer
Value = CInt(Rnd * Max)
Select Case CInt(Rnd * 3) + 1
Case 1
Value = Value + 0.25
Case 2
Value = Value + 0.5
Case 3
Value = Value + 0.75
Case 4
Value = Value + 0
End Select
GetRnd = Value
End Function