Deselect a Lixtbox when textbox receives focus

[S P P]

Deselect a Lixtbox when textbox receives focus

I click on the New button and the textbox receives focus.

I need the textbox to deselect the listbox when it receives focus.

 

[Belleke]

As always, your example sucks
Play with the following

LBx1.ListIndex = -1

 

[S P P]

I already tried it doesn't work

Private Sub LBx1_Change()
TBx1 = LBx1.List(LBx1.ListIndex, 0)
End Sub

 

[S P P]

I got it like this
Private Sub LBx1_Click()
For i = 0 To LBx1.ListCount - 1
If LBx1.Selected(i) Then
TBx1 = LBx1.Value
Exit For
End If
Next
End Sub

Excludes

Private Sub LBx1_Change()
TBx1 = LBx1.List(LBx1.ListIndex, 0)
End Sub