كود رسم خطين متقاطعين حسب حركة الفأرة

ضع الكود في الفورم

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 

Me.Cls 

Line (X, 0)-(X, Me.ScaleHeight), vbRed 

Line (0, Y)-(Me.ScaleWidth, Y), vbGreen 

End Sub