Introduction:
Welcome to my tutorial on how to create a Mouse Position tool in Visual Basic. This is easy so I will also be explaining Threading.

Steps of Creation:
Step 1:
First we need to import System.Threading so we can use Threads. We also want to create a form with just a label, this will contain our mouse position.

1. Imports System.Threading
   

Step 2:
Now we want to create and initiate a Thread on form load...

1. CheckForIllegalCrossThreadCalls = False
   
2. Dim
   
   trd As
   
   Thread = New
   
   Thread(AddressOf begin)
   
3. trd.isBackground = True
   
4. trd.Start()
   

We also stop checking for illegal cross thread calls because if we don't, it will throw an error when trying to access the label1 control from a new thread because the control was created on the main thread.

Step 3:
Now we want to create our begin function which the new Thread starts on. We want it to update our label text with the mouse position so we put it in a constant loop.

1. Private
   
   Function
   
   begin()
   
2. Do
   
   While
   
   True
   
3. Label1.Text = "X: "
   
   & MousePosition.X & ", Y: "
   
   & MousePosition.Y
   
4. Loop
   
5. End
   
   Function
   

Step 4:
Finally, we want to add in a 0.1 second sleep between each loop of updating our label so it doesn't overuse resources from our computer etc.

1. Thread.Sleep(100)
   

Project Complete!
Below is the full source code and download to the project files.

1. Imports System.Threading
   
2. Public
   
   Class Form1
   
3. Private
   
   Sub
   
   Form1_Load(sender As
   
   Object
   
   , e As
   
   EventArgs) Handles MyBase.Load
   
4. CheckForIllegalCrossThreadCalls = False
   
5. Dim
   
   trd As
   
   Thread = New
   
   Thread(AddressOf begin)
   
6. trd.isBackground = True
   
7. trd.Start()
   
8. End
   
   Sub
   
9. 
   
10. Private
    
    Function
    
    begin()
    
11. Do
    
    While
    
    True
    
12. Label1.Text = "X: "
    
    & MousePosition.X & ", Y: "
    
    & MousePosition.Y
    
13. Thread.Sleep(100)
    
14. Loop
    
15. End
    
    Function
    
16. End
    
    Class
    

Download