Private Sub Command1_Click()
Dim Wert, Max, Anzahl, Minus As Double
Dim i As Integer
 
Wert = 7.75
Anzahl = 5
i = 1
Max = Fix(Wert / Anzahl)
 
Do
    Minus = GetRND(Max)
    Load lblOutput(i)
    lblOutput(i).Top = lblOutput(i - 1).Top + lblOutput(0).Height
    lblOutput(i).Visible = True
 
    If i > Anzahl - 1 Then
        lblOutput(i).Caption = Wert
        Exit Sub
    End If
 
    If Minus > Wert Then
        lblOutput(i).Caption = Wert
        Wert = 0
    Else
        lblOutput(i).Caption = Minus
        Wert = Wert - Minus
    End If
    i = i + 1
    DoEvents
Loop While Wert > 0
End Sub
 
Public Function GetRND(ByVal Grenze As Integer) As Double
Dim x, y As Integer
Randomize Timer
x = CInt(Rnd * Grenze) + 1
y = CInt(Rnd * 3) + 1
Select Case y
Case 1
x = x - 0.25
Case 2
x = x - 0.5
Case 3
x = x - 0.75
End Select
GetRND = x
End Function