ترسیم خطوط - نسخه قابل چاپ

کد:
Option Explicit





'TheWolf

'Www.Parsicoders.com



Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long



Private Sub Form_Load()

Me.BackColor = vbWhite

Me.AutoRedraw = True

ShowCursor 0

End Sub



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

Cls

Me.Line (0, 0)-(X, Y)

Me.Line (Width, 0)-(X, Y)

Me.Line (Width / 2, 0)-(X, Y)

Me.Line (0, Height)-(X, Y)

Me.Line (0, Height / 2)-(X, Y)

Me.Line (Width, Height / 2)-(X, Y)

Me.Line (Width, Height)-(X, Y)

Me.Line (Width / 2, Height)-(X, Y)

Me.Circle (Int(X), Int(Y)), 500

End Sub



Private Sub Form_Unload(Cancel As Integer)

ShowCursor 1

End Sub