by Mark (aka aldinator) (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 22nd April 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Make a cross across the screen and down which moves with the mouse
VBcoders
'draw 2 lines called line1 and line2
Private Sub Form_Load()
Line1.Visible = False
Line2.Visible = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = True
Line2.Visible = True
Line1.X1 = X - (Me.Width + 1000)
Line1.X2 = X + (Me.Width + 1000)
Line1.Y1 = Y
Line1.Y2 = Y
Line2.Y1 = Y - (Me.Height + 1000)
Line2.Y2 = Y + (Me.Height + 1000)
Line2.X1 = X
Line2.X2 = X
End Sub
No comments have been posted about Make a cross across the screen and down which moves with the mouse. Why not be the first to post a comment about Make a cross across the screen and down which moves with the mouse.