Private Sub Command1_Click()
  Dim i As Integer
  Dim nZahl As Integer
 
  Randomize -Timer
 
  Text1.Text = "0"
  Text2.Text = "0"
  Text3.Text = "0"
 
  ' 1.000 Durchläufe
  Do While i < 1000
    i = i + 1
    nZahl = Int(100 * Rnd + 1)
    Select Case nZahl
      Case 1 To 5
        ' 5%
        Text1.Text = CStr(Val(Text1.Text) + 1)
 
      Case 6 To 15
        ' 10%
        Text2.Text = CStr(Val(Text2.Text) + 1)
 
      Case Else
         ' 85%
        Text3.Text = CStr(Val(Text3.Text) + 1)
    End Select
  Loop
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de