For Each ctr As Control In grpA.Controls If TypeOf ctr Is Button Then Dim chk As CheckBox = DirectCast(ctr, CheckBox) End If Next