[Genius Live]

(20-12-13, 08:27 PM)محمد كتب : شكراً لك اخي العزيز
وبارك الله فيك
اجابتك ناقصة

The remainder is easy
Take a look at the following codes

To add value to the Listbox

كود :

ListBox1.Items.Add(500) 'number
        ListBox1.Items.Add("500") 'string

To Multiplying the values ​​of the listbox with the values ​​of the other listbox

كود :

Dim x As Double = 0
        Dim y As Double = 0
        For i As Integer = 0 To ListBox1.Items.Count - 1
            ListBox1.SelectedIndex = i
            ListBox2.SelectedIndex = i
            y = CType(ListBox1.SelectedItem.ToString, Double) * CType(ListBox2.SelectedItem.ToString, Double)
            x += y
        Next
        TextBox3.Text = x