Private Sub Command1_Click()
Dim i As Integer
Dim minus As Double
Dim wert As Double
 
wert = 7.75
i = 1
Do
minus = GetRnd(wert)
If minus > 0 Then
If minus < wert Then
wert = wert - minus
Load lblOutput(i)
lblOutput(i).Top = lblOutput(i - 1).Top + lblOutput(i).Height
lblOutput(i).Caption = minus
i = i + 1
 
Else
Load lblOutput(i)
lblOutput(i).Top = lblOutput(i - 1).Top + lblOutput(i).Height
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