How to Turn on Mouse Trails with Visual Basic

MORE INFORMATION

Step by Step to an Application That Turns on Mouse Trails

1. Start Visual Basic, or if Visual Basic is already running, choose New Project from the File menu (ALT, F, N). Form1 is created by default.
2. Add a Command Button (Command1) to Form1.
3. Add the following code to the General Declarations section of Form1:

      ' Enter the following Declare statement on one, single line:
      Declare Function Escape Lib "GDI" (ByVal hDC As Integer,
         ByVal nEscape As Integer, ByVal nCount As Integer, lpInData As Any,
         lpOutData As Any) As Integer
   
      Const MouseTrails = 39
      Const SizeOfWord = 2
   						

4. Add the following code to the Command1_Click event of Form1:

      Dim x As Integer
   
      x = 7  ' Set x to one of the following values:
             ' 1 to 7 : turns mouse trails on and shows 1 to 7 trailers
             '      0 : turns off mouse trails
             '     -1 : turns mouse trails on, reads info from WIN.INI
             '     -2 : disables mouse trails, doesn't update WIN.INI
             '     -3 : enables mouse trails, updates WIN.INI
   
      result% = Escape(form1.hDC, MouseTrails, SizeOfWord, x, 0&)
   						

5. Run the program. Click the Command1 button to turn on mouse trails.