Had a look at your code and think ive found a solution but ive coded it in a separate project with Pseudo Code to explain whats happening. PM me for feedback.
Dim UserShapeX As Integer 'shape1 x control
Dim UserShapeY As Integer 'shape1 Y control
UserShapeX = Shape1.Left + Shape1.Width
UserShapeY = Shape1.Top + Shape1.Height
If Shape2.Left <= UserShapeX Then
'shape1 turns into shape2
End If
If Shape2.Top <= UserShapeY Then
'shape1 turns into shape2
End If
OblibSystems
Junior Poster in Training
65 posts since Aug 2011
Reputation Points: 22
Solved Threads: 0