Aşağıdaki iki prosedürünüzü değiştirin, deneyin.
[vb:1:0622cb1c01]Private Sub AKTAR_Click()
Dim i As Integer
For i = o To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem (ListBox1.List(i))
ListBox1.RemoveItem i
ListBox1.Selected(i) = False
ListBox4.AddItem (ListBox3.List(i))
ListBox3.RemoveItem i
ListBox3.Selected(i) = False
End If
Next i
End Sub
Private Sub CommandButton2_Click()
Dim i As Integer
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
ListBox1.AddItem (ListBox2.List(i))
ListBox2.RemoveItem (i)
ListBox2.Selected(i) = False
ListBox3.AddItem (ListBox4.List(i))
ListBox4.RemoveItem (i)
ListBox4.Selected(i) = False
End If
Next i
End Sub[/vb:1:0622cb1c01]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.