Private Sub cmdGenerat_Click()
    Dim A As Integer
    Dim B As Integer
    Dim C As Integer
    Dim D As Integer
    Randomize
    B = Int(Rnd() *  47 )
    C = Int(Rnd() *  47 )
    D = Int(Rnd() *  47 )
    A =  100  - (B + C + D)
    While (A < B Or A < C Or A < D)
        If B >= C Or B >= D Then
            B = Int(Rnd() * (B -  1 ))
        ElseIf (C >= B Or C >= D) Then
            C = Int(Rnd() * (C -  1 ))
        ElseIf (D >= B Or D >= C) Then
            D = Int(Rnd() * (D -  1 ))
        End If
        A =  100  - (B + C + D)
        DoEvents
    Wend
    lblA = A
    lblB = B
    lblC = C
    lblD = D

End Sub