Private Sub add_Click()
Randomize
Dim i%, x%
For i = 1 To 5
x = 100 + Int(Rnd * 899)
List1.AddItem x
List1.AddItem x + 1
List1.AddItem x + 2
Next i
End Sub
Private Sub average_Click()
Dim a%, s%, i%
a = List1.ListCount
For i = 0 To a - 1
s = s + List1.List(i)
Next i
Label1.Caption = Format(s / a, "000.00")
End Sub