GUI Program to demonstrate Param array

Private Sub Command1_Click()
Dim a() As Integer
Call parray(100, 200, 300, 400, 100)
End Sub
Private Sub parray(ParamArray a())
Dim i As Integer
Dim sum As Integer
For i = 0 To UBound(a())
sum = sum + a(i)
Next i
Label1.Caption = "THe sum of array no's" & sum
End Sub

Private Sub Command2_Click()
Label1.Caption = " "
End Sub

Private Sub Command3_Click()
End
End Sub