Private Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End Sub
Private Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End Sub
Private Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End Sub
Private Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End Sub
Private Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End Sub
Private Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End Sub
Private Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End SubPrivate Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End Subvvv

v
vPrivate Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End SubPrivate Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End SubPrivate Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End SubPrivate Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End SubPrivate Sub cmdremove_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
ElseIf List2.ListIndex >= 0 Then
List2.RemoveItem List2.ListIndex
Else
MsgBox "You must select player"
End If
End Sub