Private Sub CL_ChangeStop(ByVal CBM As ComboBoxMmbr)
Dim L As Long, CBMrCP As ComboBoxMmbr
Select Case True
Case CBM.CBx Is CBxCP
If CBxCP.MatchFound Then
L = CBM.SujetBdD(1)(CBxCP.ListIndex)(1)
CBxVille.Text = CL.PlgTablo(L, CL.Item(CBxVille).Col).Value
Else: CBxVille.Text = "": End If
Case CBM.CBx Is CBxVille
If CBxVille.MatchFound Then
Set CBMrCP = CL.Item(CBxCP)
If CBxCP.MatchFound Then
L = CBMrCP.SujetBdD(1)(CBxCP.ListIndex)(1)
If CBxVille.Text = CL.PlgTablo(L, CBM.Col) Then Exit Sub
End If
L = CBM.SujetBdD(1)(CBxVille.ListIndex)(1)
CBxCP.Text = CL.PlgTablo(L, CBMrCP.Col).Value
Else: CBxCP.Text = "": End If
End Select
End Sub