3)Design a form in VB with two List boxes. Set the style property of both to 0 and 2 (Multi select) respectively. One with the left arrow and one with the right arrow. On pressing the left arrow the selected item from List Box 1 should be transferred to List Box 2 (only if it does exist in List Box 2). If the right arrow is pressed, the selected item (multiple selection are not in ListBox2) transferred to List box 1.Add items and remove items buttons for each list. Duplicate item should not be added .

Option Explicit

Private Sub Command1_Click()
Dim str As String
str = Text1.Text
List1.AddItem (str)
Text1.Text = " "
End Sub

Private Sub Command2_Click()
Dim str As String
str = List1.Text
List1.RemoveItem (List1.ListIndex)
List2.AddItem (str)
End Sub

Private Sub Command3_Click()
Dim str As String
str = List2.Text
List2.RemoveItem (List2.ListIndex)
List1.AddItem (str)
End Sub

Private Sub Command4_Click()
Text1.Text = " "
End Sub


---