كيف اعرف اى listbox معمول علية setfocus حاليا

في خاصية تسمى activecontrol يمكنك من خلالها معرفة الاداة الفاعلة حاليا

If Not ActiveControl Is Nothing Then
If TypeOf ActiveControl Is ListBox Then
Print ActiveControl.List(0)

 If ActiveControl = List1 Then
 Print 1
 End If
End If

End If

الف شكر يا باشمهندس