Option Explicit
 
Const xQ = 4
Const Sig = 1
Const ZIEHUNG = 100
 
Dim Zufall As New clsNormalRnd
 
Private Sub Command1_Click()
Dim i As Double
Dim RndZahl As Double
 
Zufall.xQuer = xQ
Zufall.Sigma = Sig
 
Canvas.Scale (0, 0)-(ZIEHUNG + 5, xQ * 2)
 
Canvas.Line (0, xQ)-(ZIEHUNG + 5, xQ)
 
For i = 0 To ZIEHUNG
 
    RndZahl = Zufall.NormRnd
 
    Liste.AddItem (Int(RndZahl))
 
    Canvas.PSet (i, RndZahl), QBColor(Rnd * 15)
 
Next i
 
End Sub