リストボックス内の数値で全て未選択時の計算の仕方 (ID:89997)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6.0使ってます。ごく最近勉強し始めたばかりです。独学で勉強してます。 リストボックスの中に1、2、3、4、5、の五つの数値があるとします。 multiselectを標準に設定して、2,3,4を選択してcommand1をクリックしたとき 選択された数値だけを足し算してlabel1に表示する。（結果は9）何も選択せずにcommand1をクリックしたらリストボックス内の全ての数値を足し算してlabel1に表示する。（結果は15） の後者の方がうまくいきません。 Private Sub Command1_Click() Dim i, a, b As Long For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then a = a + Val(List1.List(i)) Label1.Caption = a Else List1.Selected(i) = False b = b + Val(List1.List(i)) Label1.Caption = b End If Next i と書いてみたのですが全然無理でした。何も選択せずにcommand1を押した時〜の書き方を教えてください。