CodeItBetter Programming Another VB Programming Blog

'System & API - How to Enable/Disable Mouse trails
Option Explicit
 
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
    ByVal fuWinIni As Long) As Long
Public Const SPI_SETMOUSETRAILS = 93
 
Sub main()
    Call EnableMouseTrails    'To Enable Mouse Trails
    'Call DisableMouseTrails  'To Disable Mouse Trails
End Sub
 
Public Sub EnableMouseTrails()
    Dim MTrailCount As Integer
    MTrailCount = 15
    SystemParametersInfo SPI_SETMOUSETRAILS, MTrailCount, 0&, vbNull
End Sub
 
Public Sub DisableMouseTrails()
    Dim MTrailCount As Integer
    MTrailCount = 0
    SystemParametersInfo SPI_SETMOUSETRAILS, MTrailCount, 0&, vbNull
End Sub