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
Dim MTrailCount As Integer
Dim RetCode As Long

'To disable the feature, set the MTrailCount parameter to zero or 1. To enable the feature, set MTrailCount to a value greater than 1 to indicate the number of cursors drawn in the trail.

MTrailCount = 15

RetCode = SystemParametersInfo (SPI_SETMOUSETRAILS, MTrailCount, 0, VbNull)