Design a form in VB for implementing Combo Box and List Box controls

Private Sub Cmdback_Click()

Dim iAs Integer

For i = right.ListCount - 1 To 0 Step -1

If right.Selected(i) Then

left1.AddItem right.List(i)

right.RemoveItemi

End If

Next i

End Sub

Private Sub Cmdbackall_Click()

Do Whileright.ListCount

left1.AddItem right.List(0)

right.RemoveItem 0

Loop

End Sub

Private Sub Cmdmove_Click()

Dim iAs Integer

For i = left1.ListCount - 1 To 0 Step -1

If left1.Selected(i) Then

right.AddItemright.List(i)

left1.RemoveItemi

End If

Next i

End Sub

Private Sub Cmdmoveall_Click()

Do While left1.ListCount

right.AddItemleft1.List(0)

left1.RemoveItem 0

Loop

End Sub

Private Sub Form_Load()

left1.AddItem "ape"

left1.AddItem "hen"

left1.AddItem "dog"

left1.AddItem "cat"

End Sub

Output: