HTMLでもFormでも良いんだけど、部品をグループ化してリストしておいて、プロパティValueに数値をセットしてる場合に、選択されているやつだけで合計したいなぁなんて時に使う関数
Protected Function SumControlValues(ByVal Control As ListControl) As Long
Dim lRet As Long = 0
For Each wValue As ListItem In Control.Items
If wValue.Selected Then lRet += CType(wValue.Value, Long)
Next
Return lRet
End Function