No mouseover

[timbudtwo]

What would be the code for any size of button to keep the cursor off of it?

[kedaman]

you mean having cursor avoiding that area? Use Setcursorpos api to move cursor

[timbudtwo]

well I sorta wanted the code, the button in the size of 6 of those little dots on the form.

[kedaman]

Try something like this:

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim pt As POINTAPI
    pt.x = x / Screen.TwipsPerPixelX
    pt.y = y / Screen.TwipsPerPixelY
    Caption = pt.x
    ClientToScreen Command1.hwnd, pt
    SetCursorPos pt.x - y / Screen.TwipsPerPixelX, pt.y - y / Screen.TwipsPerPixelY
End Sub

[timbudtwo]

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim pt As POINTAPI
pt.x = x / Screen.TwipsPerPixelX
pt.y = y / Screen.TwipsPerPixelY
Caption = pt.x
ClientToScreen Command1.hwnd, pt
SetCursorPos pt.x - y / Screen.TwipsPerPixelX, pt.y - y / Screen.TwipsPerPixelY
End Sub
doen't work
what would?

[seaweed]

Just change it a little. Add a module and declare the API's and the Type Public there:

In a basic module:

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Public Type POINTAPI
        x As Long
        y As Long
End Type

And in the form's code window:

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim pt As POINTAPI
    pt.x = x / Screen.TwipsPerPixelX
    pt.y = y / Screen.TwipsPerPixelY
    Caption = pt.x
    ClientToScreen Command1.hwnd, pt
    SetCursorPos pt.x - y / Screen.TwipsPerPixelX, pt.y - y / Screen.TwipsPerPixelY
End Sub

[kedaman]

What did you change? It worked on mine. also remove that caption line, it's not nessesary