Private Sub Command1_Click()
Dim x As Integer
Dim minus As Double
Dim wert As Double
 
wert = 7.75
x = 1
Do
minus = GetRnd(wert)
If minus > 0 Then
If minus < wert Then
wert = wert - minus
 
Load lblOutput(x)
lblOutput(x).Visible = True
lblOutput(x).Top = lblOutput(x - 1).Top + lblOutput(x).Height
 
If i = 1 Then
lblOutput(0).Caption = minus
Else
lblOutput(i - 1).Caption = minus
End If
 
lblOutput(x).Caption = minus
x = x + 1
 
Else
Load lblOutput(x)
lblOutput(x).Top = lblOutput(x - 1).Top + lblOutput(x).Height
 
If i = 1 Then
lblOutput(0).Caption = wert
Else
lblOutput(i - 1).Caption = wert
End If
 
lblOutput(x).Caption = wert
x = x + 1
 
wert = wert - wert
End If
End If
 
DoEvents
Loop While wert > 0
Me.Enabled = False
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