event MouseMove (Button as Integer, Shift as Integer, X as OLE_XPOS_PIXELS, Y as OLE_YPOS_PIXELS)
Occurs when the user moves the mouse.

TypeDescription
Button as Integer An integer that corresponds to the state of the mouse buttons in which a bit is set if the button is down.
Shift as Integer An integer that corresponds to the state of the SHIFT, CTRL, and ALT keys.
X as OLE_XPOS_PIXELS A single that specifies the current X location of the mouse pointer. The x values is always expressed in container coordinates
Y as OLE_YPOS_PIXELS A single that specifies the current Y location of the mouse pointer. The y values is always expressed in container coordinates
The MouseMove event is generated continually as the mouse pointer moves across objects. Unless another object has captured the mouse, an object recognizes a MouseMove event whenever the mouse position is within its borders. Use the PageFromPoint property to get the page over the cursor. 

Syntax for MouseMove event, /COM version, on: 

private void MouseMoveEvent(object sender, AxEXTABLib._ITabEvents_MouseMoveEvent e)
{
}


void OnMouseMove(short Button,short Shift,long X,long Y)
{
}


void __fastcall MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
}


procedure MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
end;


procedure MouseMoveEvent(sender: System.Object; e: AxEXTABLib._ITabEvents_MouseMoveEvent);
begin
end;


begin event MouseMove(integer Button,integer Shift,long X,long Y)
end event MouseMove


Private Sub MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXTABLib._ITabEvents_MouseMoveEvent) Handles MouseMoveEvent
End Sub


Private Sub MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
End Sub


Private Sub MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
End Sub


LPARAMETERS Button,Shift,X,Y



PROCEDURE OnMouseMove(oTab,Button,Shift,X,Y)
RETURN

Syntax for MouseMove event, /COM version (others), on: 

<SCRIPT EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript">
</SCRIPT>


<SCRIPT LANGUAGE="VBScript">
Function MouseMove(Button,Shift,X,Y)
End Function
</SCRIPT>


Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
	Forward Send OnComMouseMove llButton llShift llX llY
End_Procedure


METHOD OCX_MouseMove(Button,Shift,X,Y) CLASS MainDialog
RETURN NIL


void onEvent_MouseMove(int _Button,int _Shift,int _X,int _Y)
{
}


function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.Tab.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.Tab.1::OLE_YPOS_PIXELS)
end function


function nativeObject_MouseMove(Button,Shift,X,Y)
return

The following sample underlines the page's caption while cursor hovers it :

Dim iHot

Private Sub Unhover(ByVal i As Long)
    With Tab1
        If (i >= 0) Then
            .Pages(i).Caption = Replace(.Pages(i).Caption, "<u><fgcolor=666666>", "")
        End If
    End With
End Sub

Private Sub Hover(ByVal i As Long)
    With Tab1
        iHot = i
        If (i >= 0) Then
            .Pages(i).Caption = "<u><fgcolor=666666>" + .Pages(i).Caption
        End If
    End With
End Sub

Private Sub Tab1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i
    With Tab1
        i = .PageFromPoint(-1, -1)
        If (Not iHot = i) Then
            Unhover (iHot)
            iHot = i
            If Not (i = .Active) Then
                Hover (iHot)
            End If
        End If
    End With
End Sub

Private Sub Tab1_Activate(ByVal NewActive As Long, ByVal OldActive As Long)
    If (NewActive = iHot) Then
        Unhover iHot
        iHot = -1
    End If
End Sub

Private Sub Tab1_MouseLeave()
    If (iHot >= 0) Then
        Unhover iHot
        iHot = -1
    End If
End Sub

The following sample prints the page's key  over the cursor:

Private Sub Tab1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Tab1
        Dim p As Long
        p = .PageFromPoint(-1, -1)
        If (p >= 0) Then
            Debug.Print "The cursor is over the page '" & .Pages(.Pages.PosToIndex(p)).Key & "'"
        End If
    End With
End Sub