'pin 2

If ball1.Width >= pin2.Width Then
top2 = True
End If

If (ball1.Top + ball1.Height) >= pin2.Top Then
bot2 = True
End If

If (ball1.Top) <= (pin2.Top + pin2.Height) Then
range2 = True

End If

If (ball1.Left + ball1.Width) >= pin2.Left Then
mid2 = True
End If

If range2 And top2 = True And mid2 = True And bot2 = True Then
mstboo2 = True
End If

If mstboo2 = True Then
pin2.Visible = False