[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته




المربع الذي سمته لم تعد لنقطة البداية

PHP كود :

Private Sub Command1_Click()

    Me.BackColor = vbWhite
    Cls
    
    Line (300, 300)-Step(5000, 0)
    Line -Step(0, 5000)
    Line -Step(-5000, 0)
    Line -Step(0, -5000)
    
    Line (800, 800 + 2000)-Step(2000, -2000), vbRed
    Line -Step(2000, 2000), vbBlue
    Line -Step(-2000, 2000), vbGreen
    Line -Step(-2000, -2000), vbMagenta
    Line -Step(4000, 0), vbCyan

End Sub 


السلام عليكم ورحمة الله وبركاته