For nIFor = 1 To ThisForm.ControlCount
   If Type("ThisForm.Controls(nIFor).ControlSource") # "U"
      If ThisForm.Controls(nIFor).ControlSource = "X"
         *** Your Code
      Endif
   Endif
EndFor