Crosshair Mouse
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
What i did was Make the Code Much Shorter, Went from 25 Lines of Code, to 9 Lines of code..
ORIGINALY DONE BY: thuggish_187
Original Author: Rob
Code
Private Sub Form_Load()
Me.ScaleMode = 3 'Pixel Mode
Me.MousePointer = 2 'Set Mouse Pointer to Cross
End Sub
Private Sub Form_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single)
Cls
Me.Circle (X, Y), 25 'Draw Circle
Me.Line (0, Y)-(Me.Width, Y)
Me.Line (X, 0)-(X, Me.Height)
Me.CurrentX = X + 35
Me.CurrentY = Y - 25
Me.Print "X: " & X & " Y: " & Y
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.