[vbnet]

.....

أسلوبين (وتوجد أساليب أخرى...)

كود :

Me.ListBox1.Items(Me.ListBox1.FindString("2.")) &= "31498"
Me.ListBox1.Items(Me.ListBox1.FindString("1.")) &= "9851"
Me.ListBox1.Items(Me.ListBox1.FindString("4.")) = "4.1244"
Me.ListBox1.Items(Me.ListBox1.FindString("3.")) = "3.4548"

.....