If you are using a serverside listbox then change the following property
change it from...
Object.mulitple=true
to
Object.mulitple=false
but dont forget to check that B selected first.
dim Test as boolean = False
dim Marker as integer
for i = 0 to Object.items.count - 1
If object.items(i).selected then
if object.items(i).text = "B" Then
Test = true
Marker = i
Exit For
end if
end if
next
If Test Then
For i = 0 to Object.items.count - 1
Object.Items(i).selected = False
Next
Object.Multiple = False
Object.items(Marker).selected = true
End If