sorry
Visual Basic:
For i = 11 To i = 12
If Me("Shape" & i).Left + Me("Shape" & i).Width >= Shape10.Left + Shape10.Width Then
q = -q
End If
If Me("Shape" & i).Top + Me("Shape" & i).Height >= Shape10.Top + Shape10.Height Then
q = -q
End If
If Me("Shape" & i).Left <= Shape10.Left Then
q = -q
End If
If Me("Shape" & i).Top <= Shape10.Top Then
q = -q
End If
If t = 1 Then
Me("Shape" & i).Left = Me("Shape" & i).Left - q
ElseIf t = 2 Then
Me("Shape" & i).Left = Me("Shape" & i) + q
ElseIf t = 3 Then
Me("Shape" & i).Top = Me("Shape" & i) + q
ElseIf t = 4 Then
Me("Shape" & i).Top = Me("Shape" & i).Top - q
End If
Next i
