Crosshair Mouse
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
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source 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
Original Comments (3)
Recovered from Wayback Machine