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 = 0 To i
Load lblOutput(x)
Next x
 
Else
lblOutput(i).Caption = wert
i = i + 1
 
For x = 0 To i
Load lblOutput(x)
Next x
 
wert = wert - wert
End If
End If
DoEvents
Loop While wert > 0
 
End Sub