Try Dim ctrl As VBControlExtender
This works
Dim i As Integer
Dim ctrl As VBControlExtender
For Each ctrl In Controls
ctrl.DragMode = vbAutomatic
Next
For i = MyControls.LBound To MyControls.UBound
MyControls(i).DragMode = vbAutomatic
Next i