Public sub Nextbutton_Click () Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.Tag = "Section1" Then ctrl.Left = ctrl.Left + 5 End If Next End Sub