Public Sub MoveControl(Top, Left, Height, Width)

  Dim frm As Form
  Dim ctl As Control

  'アクティブフォームをセット
  Set frm = Screen.ActiveForm

  'フォーム内のコントロールのループ
  For Each ctl In frm.Controls
    With ctl
      'コントロールが選択されているとき
      If .InSelection Then
        '位置のプロパティを引数値に設定
        If Top <> 0 Then .Top = Top
        If Left <> 0 Then .Left = Left
        If Height <> 0 Then .Height = Height
        If Width <> 0 Then .Width = Width
      End If
    End With
  Next ctl

End Sub