انتقال داده انتخاب شده از لیست باکس اول به لیست باکس دوم.

انتقال داده انتخاب شده از لیست باکس اول به لیست باکس دوم.

List2.AddItem List1.List(List1.ListIndex)

دوست عزیز اگر فقط می خواهید که داده ها از لیست اولی به داخل دومی انتقال پیدا کنه از این کد استفاده کنید :

Private Sub List1_Click()

    List2.AddItem List1.List(List1.ListIndex)

End Sub

و اگر می خواهید اون آیتم انتخاب شده از لیست اول حذف و به لیست دوم انتقال پیدا کنه از کد زیر استفاده کنید :

Private Sub List1_Click()

    List2.AddItem List1.List(List1.ListIndex)

    List1.RemoveItem (List1.ListIndex)

End Sub

باتشکر احسان