Private Sub add_Click()
If txt1 <> "" Then
List1.AddItem txt1
txt1 = ""
ElseIf txt2 <> "" Then
List2.AddItem txt2
txt = ""
End If
End Sub

Private Sub Command1_Click()

End Sub

Private Sub exit_Click()
End
End Sub

Private Sub left_Click()
If List2.ListIndex >= 0 Then

List1.AddItem List2
List2.RemoveItem List2.ListIndex
Else: MsgBox "Please select a player to be traded"
End If
End Sub

Private Sub right_Click()
If List1.ListIndex >= 0 Then

List2.AddItem List1
List1.RemoveItem List1.ListIndex
Else: MsgBox "Please select a player to be traded"
End If


End Sub