This is the 3rd time I'm attempting to post this and hopefully there will be spaces where they are supposed to be

Try this:

1.Set Object B visible to "NO"
2.Insert script below in object A
3.Insert script below in object B but change

desktopx.Object("B") to desktopx.Object("A")



If object.Visible= True Then
desktopx.Object("B").visible= False
ElseIf object.Visible= False Then
desktopx.Object("B").visible= True
End If

Sub Object_OnLbuttonUp(x,y,dragged)
If Not dragged Then

desktopx.Object("B").visible= True
object.visible = False

End If
End Sub


Hope this helps.

EDIT: You can also use messages.

1. Create a 'mouse up' state for object A
2. In the 'mouse up' state add a message to 'hide' object A and 'show' object B.
3. Do the same for object B (i.e. hide B and show A)