yes, that is exactly what I am trying to do, this way I can mouseover, and get the tooltip, to make sure I'm over the correct button, prior to going farther over to activate it/have it slide out...

I have the buttons just 5pxs visible, they are rectangular, so I would like to attach 1/2 oval shapes to there ends, with the appropriate tooltips, so's that I can be reminded which one I'm actually over, without yet activating it.

I'm sure its simple just can't figure out how to get the 1/2 oval shaped tabs to stay connected to each individual button...I'm learning, but slooooowwwllly LOL
THANKS!
Joe

Ah ok, so just Call the "tab" object, let's call it for now, in the script to mimic the button action when the button is activated...DUH, thanks LOL, I knew it would be something like that!
Preciate it BigDogBigFeet...btw, you know what they say about men with big feet? Is it true? ROFLMAO (just kidding!)
Joe
I'll try to code it on my own, if I have any trouble I'll post again..tanx 4da help!
J

This is the script I'm using, and the "tab object" I'll call " Tab_Button_New " can you show me where to insert it?

'preciate it
Joe

Dim hideTop
Dim hideLeft
Dim hideSpeed
Dim hideDelay
Dim showTop
Dim showLeft
Dim showSpeed
Dim velTop
Dim velLeft
Dim delay

'Called when the script is executed
Sub Object_OnScriptEnter
'----------------------------------
'----------CUSTOMIZE HERE----------
'----------------------------------
'Object's top left corner for the "hide" state
hideTop = 0
hideLeft = -115
'Speed to hide object
'Higher number = faster motion
hideSpeed = 100
'Delay before we hide the object (milliseconds)
hideDelay = 300
'Object's top left corner for the "show" state
showTop = 0
showLeft = 0
'Speed to show object
'Higher number = faster motion
showSpeed = 100
'----------------------------------
'-----------END CUSTOMIZE----------
'----------------------------------
delay = 0
'Timer for hiding the object
Object.SetTimer 4321, 100
End Sub

'Called when the script is terminated
Sub Object_OnScriptExit
Object.KillTimer 4321
Object.KillTimer 1234
End Sub


Sub Object_OnStateChange(state)
If state = "Mouse over" Then
'Kill the hide timer
Object.KillTimer 4321
'Start the show timer
Object.SetTimer 1234, 100
Else
'Kill the show timer
Object.KillTimer 1234
'Start the kill timer
Object.SetTimer 4321, 100
End If
End Sub

Sub Object_OnTimer1234
'Show the object

Call MoveIt(showTop, showLeft, showSpeed)
If (Object.Top = showTop) And (Object.Left = showLeft) Then
delay = hideDelay
End If
End Sub

Sub Object_OnTimer4321
'Hide the object
If delay <> 0 Then
'We wait until delay is over
delay = delay - 100
Else
Call MoveIt(hideTop, hideLeft, hideSpeed)
End If
End Sub

Sub MoveIt(destTop, destLeft, speed)
'Are we there yet?
If (Object.Top <> destTop) Or (Object.Left <> destLeft) Then
'Go ahead and hide
Dim diffTop
Dim diffLeft
Dim distance
Dim speedTop
Dim speedLeft

diffTop = destTop - Object.Top
diffLeft = destLeft - Object.Left
distance = (diffTop^2 + diffLeft^2)^0.5
speedTop = speed * diffTop / distance
speedLeft = speed * diffLeft / distance

If Abs(speedTop) > Abs(diffTop) Then
speedTop = diffTop
End If
If Abs(speedLeft) > Abs(diffLeft) Then
speedLeft = diffLeft
End If

Object.Move Object.Left + speedLeft, Object.Top + speedTop
End If
End Sub