This line of the code is giving run time error 438:Oject doesn't support property or method after changing the Ctl.Clear to that
vb Code:
  1. If Ctl.Visible = True And Ctl.ListIndex = -1 Then