Menjumlahkan data di List BOX VB.6

Hellow blogger,,,,
Saya ingin berbagi sedikit untuk menghitung jumlah data yang sudah dimasukkan di List Box
Buat sebuah project baru isikan dalam form command Button, satu texBox dan satu listbox berikut tampilannya :

Kemudian masukkan soorce code berikut ke command button:
                                                                                                                      

                                                                                                                                                      

Private Sub Command2_Click()
   Dim totalbelanja As Long
   Dim t As Integer
   totalbelanja = 0
   For t = 0 To List1.ListCount - 1
      totalbelanja = totalbelanja + Val(List1.List(t))
   Next
      Text2.Text = totalbelanja
End Sub

Jalankan program dan klik Hitung maka hasilnya seperti berikut:

 

Demikian semoga bermanfaat...

Salam sepuluh ribu jam untuk Expert....